Lines Matching +defs:eval +defs:defun
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).
90 ;; * Need C-x C-e binding (tcl-eval-last-exp).
109 (eval-when-compile
230 (define-key map "\M-\C-x" 'tcl-eval-defun)
232 (define-key map "\C-c\C-v" 'tcl-eval-defun)
235 (define-key map "\C-c\C-x" 'tcl-eval-region)
275 (define-key map "\M-\C-x" 'tcl-eval-defun)
277 (define-key map "\C-c\C-v" 'tcl-eval-defun)
280 (define-key map "\C-c\C-x" 'tcl-eval-region)
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
297 ["Send region to Tcl process" tcl-eval-region
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
386 "eval" "case" "in" "switch" "default" "exit" "error" "proc" "return"
471 ;; that end-of-defun works correctly. Tricky cases are:
486 (defun tcl-set-proc-regexp ()
491 (defun tcl-set-font-lock-keywords ()
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)
734 (defun tcl-indent-line ()
764 (defun tcl-figure-type ()
808 (defun tcl-calculate-indent (&optional parse-start)
830 (beginning-of-defun))
911 (defun tcl-indent-exp ()
1012 ;; beginning-of-defun. Also has incestuous knowledge about the
1014 (defun tcl-add-log-defun ()
1021 (defun tcl-outline-level ()
1040 (defun tcl-filter (proc string)
1051 (defun tcl-send-string (proc string)
1059 (defun tcl-send-region (proc start end)
1067 (defun switch-to-tcl (eob-p)
1078 (defun inferior-tcl-proc ()
1087 (defun tcl-eval-region (start end &optional and-go)
1100 (defun tcl-eval-defun (&optional and-go)
1101 "Send the current defun to the inferior Tcl process.
1105 (end-of-defun)
1107 (beginning-of-defun)
1108 (tcl-eval-region (point) end)))
1150 (set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp)
1155 (defun inferior-tcl (cmd)
1185 (defun tcl-real-command-p ()
1202 (defun tcl-real-comment-p ()
1212 (defun tcl-hairy-scan-for-comment (state end always-stop)
1256 (defun tcl-in-comment ()
1259 (beginning-of-defun)
1277 (defun tcl-files-alist (dir &optional alist)
1286 (defun tcl-help-snarf-commands (dirlist)
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)
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)
1482 (defun tcl-hashify-buffer ()
1499 (defun tcl-comment-indent ()
1518 (defun tcl-guess-application ()
1537 (defun tcl-popup-menu (e)
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))