Lines Matching +defs:end +defs:of +defs:defun
11 ;; This file is part of GNU Emacs.
14 ;; it under the terms of the GNU General Public License as published by
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;; You should have received a copy of the GNU General Public License
39 ;; * tcl-proc-list can be used to customize a list of things that
43 ;; * tcl-keyword-list is a list of keywords. I've generally used this
71 ;; using braces won't work -- quotes change the syntax class of characters
77 ;; * make add-log-tcl-defun smarter. should notice if we are in the
78 ;; middle of a defun, or between defuns. should notice if point is
79 ;; on first line of defun (or maybe even in comments before defun).
81 ;; of the preceding line, like this:
93 ;; * tcl-figure-type should stop at "beginning of line" (only ws
127 "*Indentation of Tcl statements with respect to containing block."
132 "*Indentation of continuation line relative to first line of command."
142 "*Control effect of TAB key.
144 If nil and point is not in the indentation area at the beginning of
149 1. Move from beginning of line to correct indentation.
151 3. Move forward to start of comment, indenting if necessary.
152 4. Move forward to end of line, indenting if necessary.
154 6. Move backward to start of comment, indenting if necessary."
162 "*Style of electric hash insertion to use.
166 made depending on the number of hashes inserted; or nil, meaning that
173 "*List of topmost directories containing TclX help files."
183 "*Name of Tcl program to run in inferior Tcl mode."
188 "*List of switches to supply to the `tcl-application' program."
194 If nil, the prompt is the name of the application with \">\" appended.
211 "Face used for (non-escaped) backslash at end of a line in Tcl mode."
230 (define-key map "\M-\C-x" 'tcl-eval-defun)
232 (define-key map "\C-c\C-v" 'tcl-eval-defun)
275 (define-key map "\M-\C-x" 'tcl-eval-defun)
277 (define-key map "\C-c\C-v" 'tcl-eval-defun)
287 ["Beginning of function" beginning-of-defun t]
288 ["End of function" end-of-defun t]
289 ["Mark function" mark-defun t]
295 ["Send function to Tcl process" tcl-eval-defun
318 `tcl-eval-defun' or `tcl-load-file' -- have to choose a process to
326 If you do a \\[tcl-eval-defun] command on some Lisp source code, what
354 \"#!\" line at the top of the file.
360 Auto-filling of Tcl comments.
369 "List of commands whose first argument defines something.
380 "List of Tcl keywords denoting \"type\". Used only for highlighting.
390 "List of Tcl keywords. Used only for highlighting.
404 "List of Tcl commands. Used only for highlighting.
447 Each type entry describes a sexp after the keyword, and can be one of:
471 ;; that end-of-defun works correctly. Tricky cases are:
486 (defun tcl-set-proc-regexp ()
491 (defun tcl-set-font-lock-keywords ()
496 ;; Names of functions (and other "defining things").
500 ;; Names of type-defining things.
512 ;; number of "namespace::" qualifiers. A leading "::" refers
561 Indentation of Tcl statements within surrounding block.
563 Indentation of continuation line relative to first line of command.
568 Controls action of TAB key.
577 `tcl-mode-hook' to see what kinds of interesting hook functions
594 (set (make-local-variable 'comment-end) "")
600 '(tcl-font-lock-keywords nil nil nil beginning-of-defun
616 ;; XEmacs has defun-prompt-regexp, but I don't believe
617 ;; that it works for end-of-defun -- only for
618 ;; beginning-of-defun.
619 (set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp)
622 (set (make-local-variable 'add-log-current-defun-function)
623 'tcl-add-log-defun)
636 (defun tcl-electric-char (arg)
650 (defun tcl-electric-brace (arg)
676 (defun tcl-indent-command (&optional arg)
680 area at the beginning of the line, a TAB is inserted.
681 Other values of `tcl-tab-always-indent' cause the first possible action
684 1. Move from beginning of line to correct indentation.
686 3. Move forward to start of comment, indenting if necessary.
687 4. Move forward to end of line, indenting if necessary.
689 6. Move backward to start of comment, indenting if necessary."
697 (end-of-line)
702 (beginning-of-line)
705 ;; indentation. Otherwise leave point at end of line. This
708 (end-of-line)
712 ;; characters at the end of the line. I think this is
722 ;; Go to end of line (since we're not there yet).
729 ;; Go to start of comment. We don't leave point where it is
734 (defun tcl-indent-line ()
743 (beginning-of-line)
764 (defun tcl-figure-type ()
765 "Determine type of sexp at point.
767 of sexp that indicates types.
808 (defun tcl-calculate-indent (&optional parse-start)
813 (beginning-of-line)
830 (beginning-of-defun))
843 ;; Set expr-p if we are looking at the expression part of
845 ;; are looking at the body part of an if, while, etc
879 ;; specially). So indentation is column of first
883 ;; use the column of the character after the sexp
893 ;; start of block, unless that line is on the same
895 ;; indentation of the opening brace's line, plus
897 ;; of an "if" or "while" then the indentation is
898 ;; taken from the line holding the start of the
911 (defun tcl-indent-exp ()
912 "Indent each line of the Tcl grouping following point."
929 ;; does not end inside a comment or string.
935 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
947 ;; If this line had ..))) (((.. in it, pop out of the levels
997 (delete-region (point) (progn (beginning-of-line) (point)))
1011 ;; FIXME Definition of function is very ad-hoc. Should use
1012 ;; beginning-of-defun. Also has incestuous knowledge about the
1013 ;; format of tcl-proc-regexp.
1014 (defun tcl-add-log-defun ()
1015 "Return name of Tcl function point is in, or nil."
1017 (end-of-line)
1021 (defun tcl-outline-level ()
1034 ;; directly to the inferior Tcl. See gud.el for an explanation of how
1040 (defun tcl-filter (proc string)
1051 (defun tcl-send-string (proc string)
1054 (forward-line 0) ;Not (beginning-of-line) because of fields.
1059 (defun tcl-send-region (proc start end)
1062 (forward-line 0) ;Not (beginning-of-line) because of fields.
1065 (comint-send-region proc start end))
1067 (defun switch-to-tcl (eob-p)
1069 With argument, positions cursor at end of buffer."
1078 (defun inferior-tcl-proc ()
1087 (defun tcl-eval-region (start end &optional and-go)
1096 (save-excursion (goto-char end) (skip-chars-backward " \t\n") (point)))
1100 (defun tcl-eval-defun (&optional and-go)
1101 "Send the current defun to the inferior Tcl process.
1105 (end-of-defun)
1106 (let ((end (point)))
1107 (beginning-of-defun)
1108 (tcl-eval-region (point) end)))
1131 Name of program to run.
1150 (set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp)
1155 (defun inferior-tcl (cmd)
1185 (defun tcl-real-command-p ()
1186 "Return nil if point is not at the beginning of a command.
1202 (defun tcl-real-comment-p ()
1205 A real comment is either at the beginning of the buffer,
1212 (defun tcl-hairy-scan-for-comment (state end always-stop)
1214 Returns a list of the form `(FLAG . STATE)'. STATE can be used
1216 t otherwise. If in comment, leaves point at beginning of comment.
1222 (goto-char end)
1223 (beginning-of-line)
1227 (while (and (not last-cstart) (< (point) end))
1229 (setq state (parse-partial-sexp (point) end nil nil state t))
1234 ;; as the end.
1248 (beginning-of-line 2)))
1256 (defun tcl-in-comment ()
1257 "Return t if point is in a comment, and leave point at beginning of comment."
1259 (beginning-of-defun)
1277 (defun tcl-files-alist (dir &optional alist)
1286 (defun tcl-help-snarf-commands (dirlist)
1287 "Return alist of commands and filenames."
1293 (defun tcl-reread-help-files ()
1301 (defun tcl-word-no-props ()
1307 (defun tcl-current-word (flag)
1327 (defun tcl-help-on-word (command &optional arg)
1329 Prefix argument means invert sense of `tcl-use-smart-word-finder'."
1377 This holds a cons cell of the form `(DIRECTORY . FILE)'
1380 (defun tcl-load-file (file &optional and-go)
1401 (defun tcl-restart-with-file (file &optional and-go)
1438 (defun tcl-auto-fill-mode (&optional arg)
1446 (defun tcl-electric-hash (&optional count)
1448 Prefix arg is number of `#'s to insert.
1449 See variable `tcl-electric-hash-style' for description of quoting
1482 (defun tcl-hashify-buffer ()
1492 (beginning-of-line 2)
1499 (defun tcl-comment-indent ()
1518 (defun tcl-guess-application ()
1537 (defun tcl-popup-menu (e)
1549 ;; of expansion or splitting. Tcl quoting sure sucks.
1550 (defun tcl-quote (string)
1567 (defalias 'add-log-tcl-defun 'tcl-add-log-defun)
1570 (defalias 'tcl-beginning-of-defun 'beginning-of-defun)
1571 (defalias 'tcl-end-of-defun 'end-of-defun)
1572 (defalias 'tcl-mark-defun 'mark-defun)
1573 (defun tcl-mark () (mark t))