Lines Matching +defs:eval +defs:defun
90 (define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)
102 (define-key lisp-mode-map "\M-\C-x" 'lisp-eval-defun) ; Gnu convention
103 (define-key lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp) ; Gnu convention
104 (define-key lisp-mode-map "\C-c\C-e" 'lisp-eval-defun)
105 (define-key lisp-mode-map "\C-c\C-r" 'lisp-eval-region)
106 (define-key lisp-mode-map "\C-c\C-c" 'lisp-compile-defun)
126 (defun inferior-lisp-install-letter-bindings ()
127 (define-key lisp-mode-map "\C-ce" 'lisp-eval-defun-and-go)
128 (define-key lisp-mode-map "\C-cr" 'lisp-eval-region-and-go)
129 (define-key lisp-mode-map "\C-cc" 'lisp-compile-defun-and-go)
195 like `lisp-eval-defun' or `lisp-show-arglist' -- have to choose a process
203 If you do a \\[lisp-eval-defun] command on some Lisp source code,
224 (defun inferior-lisp-mode ()
243 `lisp-eval-defun' sends the current defun to the Lisp process.
244 `lisp-compile-defun' compiles the current defun.
245 `lisp-eval-region' sends the current region to the Lisp process.
248 Prefixing the lisp-eval/compile-defun/region commands with
284 (defun lisp-get-old-input ()
291 (defun lisp-input-filter (str)
296 (defun inferior-lisp (cmd)
319 (defun lisp-eval-region (start end &optional and-go)
327 (defun lisp-eval-defun (&optional and-go)
328 "Send the current defun to the inferior Lisp process.
332 (end-of-defun)
335 (beginning-of-defun)
336 (lisp-eval-region (point) end)))
339 (defun lisp-eval-last-sexp (&optional and-go)
343 (lisp-eval-region (save-excursion (backward-sexp) (point)) (point) and-go))
346 (defun lisp-compile-region (start end &optional and-go)
356 (defun lisp-compile-defun (&optional and-go)
357 "Compile the current defun in the inferior Lisp process.
361 (end-of-defun)
364 (beginning-of-defun)
368 (defun switch-to-lisp (eob-p)
385 ;;; Now that lisp-compile/eval-defun/region takes an optional prefix arg,
390 (defun lisp-eval-region-and-go (start end)
393 (lisp-eval-region start end t))
395 (defun lisp-eval-defun-and-go ()
396 "Send the current defun to the inferior Lisp, and switch to its buffer."
398 (lisp-eval-defun t))
400 (defun lisp-compile-region-and-go (start end)
405 (defun lisp-compile-defun-and-go ()
406 "Compile the current defun in the inferior Lisp, and switch to its buffer."
408 (lisp-compile-defun t))
411 ;;; (defun lisp-compile-sexp (start end)
414 ;;; (cond ((looking-at "(defun\\s +")
423 ;;; (goto-char start) (forward-sexp 1) ; Can't use end-of-defun.
427 ;;; (t (lisp-eval-region start end)))))
429 ;;; (defun lisp-compile-region (start end)
434 ;;; (goto-char start) (end-of-defun) (beginning-of-defun) ; error check
435 ;;; (if (< (point) start) (error "region begins in middle of defun"))
438 ;;; (end-of-defun)
440 ;;; (lisp-compile-sexp s (point)) ; compiling up defun-sized chunks.
442 ;;; (end-of-defun))
461 (defun lisp-load-file (file-name)
474 (defun lisp-compile-file (file-name)
526 (defun lisp-symprompt (prompt default)
535 (defun lisp-fn-called-at-pt ()
550 (defun lisp-var-at-pt ()
563 (defun lisp-show-function-documentation (fn)
570 (defun lisp-show-variable-documentation (var)
576 (defun lisp-show-arglist (fn)
582 (defun lisp-describe-sym (sym)
593 (defun inferior-lisp-proc ()
623 ;;; - Added lisp-eval-last-sexp, bound to C-x C-e.
637 ;;; mainly the compile/eval-defun/region[-and-go] commands.
644 ;;; - The lisp-compile/eval-defun/region commands now take a prefix arg,