Lines Matching +defs:eval +defs:defun
95 (eval-when-compile
97 '("defun" "defun*" "defsubst" "defmacro"
110 (eval-when-compile
118 (eval-when-compile
130 (put 'defun 'doc-string-elt 3)
131 (put 'defun* 'doc-string-elt 3)
160 (defun lisp-font-lock-syntactic-face-function (state)
198 (defun lisp-mode-variables (&optional lisp-syntax)
244 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun)
249 (font-lock-mark-block-function . mark-defun)
253 (defun lisp-outline-level ()
282 (define-key emacs-lisp-mode-map "\e\C-x" 'eval-defun)
287 (define-key map [edebug-defun]
288 '("Instrument Function for Debugging" . edebug-defun))
295 (define-key map [separator-eval] '("--"))
296 (define-key map [eval-buffer] '("Evaluate Buffer" . eval-buffer))
297 (define-key map [eval-region] '("Evaluate Region" . eval-region))
298 (define-key map [eval-sexp] '("Evaluate Last S-expression" . eval-last-sexp))
303 (put 'eval-region 'menu-enable 'mark-active)
307 (defun emacs-lisp-byte-compile ()
314 (defun emacs-lisp-byte-compile-and-load ()
347 (defun emacs-lisp-mode ()
369 (define-key map "\e\C-x" 'lisp-eval-defun)
375 (defun lisp-mode ()
402 (defun lisp-find-tag-default ()
413 (defun lisp-eval-defun (&optional and-go)
414 "Send the current defun to the Lisp process made by \\[run-lisp]."
421 (define-key map "\e\C-x" 'eval-defun)
424 (define-key map "\n" 'eval-print-last-sexp)
432 Like Lisp mode except that \\[eval-print-last-sexp] evals the Lisp expression
434 Note that printing is controlled by `eval-expression-print-length'
435 and `eval-expression-print-level'.
445 (defun eval-print-last-sexp ()
448 If `eval-expression-debug-on-error' is non-nil, which is the default,
452 `eval-expression-print-length' and `eval-expression-print-level',
457 (eval-last-sexp t)
461 (defun last-sexp-setup-props (beg end value alt1 alt2)
462 "Set up text properties for the output of `eval-last-sexp-1'.
480 (defun last-sexp-toggle-display (&optional arg)
503 (defun prin1-char (char)
540 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
543 (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
545 (eval (let ((stab (syntax-table))
595 (eval-last-sexp-print-value value))))
597 (defun eval-last-sexp-print-value (value)
600 (print-length eval-expression-print-length)
601 (print-level eval-expression-print-level)
606 (let ((str (eval-expression-print-format value)))
620 (defvar eval-last-sexp-fake-value (make-symbol "t"))
622 (defun eval-last-sexp (eval-last-sexp-arg-internal)
626 If `eval-expression-debug-on-error' is non-nil, which is the default,
629 (if (null eval-expression-debug-on-error)
630 (eval-last-sexp-1 eval-last-sexp-arg-internal)
631 (let ((old-value eval-last-sexp-fake-value) new-value value)
633 (setq value (eval-last-sexp-1 eval-last-sexp-arg-internal))
639 (defun eval-defun-1 (form)
643 ;; The code in edebug-defun should be consistent with this, but not
656 (default-boundp (eval (nth 1 form))))
658 (set-default (eval (nth 1 form)) (eval (nth 1 (nth 2 form))))
664 (assq-delete-all (eval (nth 1 form)) face-new-frame-defaults))
665 (put (eval (nth 1 form)) 'face-defface-spec nil)
676 ',(get (eval (nth 1 form)) 'saved-face))
679 (put (eval (nth 1 form)) 'saved-face nil)))
681 (cons 'progn (mapcar 'eval-defun-1 (cdr form))))
684 (defun eval-defun-2 ()
685 "Evaluate defun that point is in or before.
687 If the current defun is actually a call to `defvar',
693 With argument, insert value in current buffer after the defun.
696 (let ((debug-on-error eval-expression-debug-on-error)
697 (print-length eval-expression-print-length)
698 (print-level eval-expression-print-level))
700 ;; Arrange for eval-region to "read" the (possibly) altered form.
701 ;; eval-region handles recording which file defines a function or
705 #'eval-region
710 (end-of-defun)
711 (beginning-of-defun)
716 (setq form (eval-defun-1 (macroexpand form)))
720 ;; will make eval-region return.
726 (defun eval-defun (edebug-it)
729 If the current defun is actually a call to `defvar' or `defcustom',
735 If `eval-expression-debug-on-error' is non-nil, which is the default,
740 If acting on a `defun' for FUNCTION, and the function was
744 If not acting on a `defun', the result of evaluation is displayed in
746 `eval-expression-print-length' and `eval-expression-print-level',
751 (eval-defun (not edebug-all-defs)))
753 (if (null eval-expression-debug-on-error)
754 (eval-defun-2)
757 (setq value (eval-defun-2))
767 ;; parse-partial-sexp from beginning-of-defun). I.e. It avoids the problem of
771 (defun lisp-mode-auto-fill ()
785 (defun lisp-indent-line (&optional whole-exp)
826 (defun calculate-lisp-indent (&optional parse-start)
847 (beginning-of-defun))
956 (defun lisp-indent-function (indent-point state)
968 * `defun', meaning indent `defun'-style;
1001 (cond ((or (eq method 'defun)
1015 (defun lisp-indent-specform (count state indent-point normal-indent)
1060 (defun lisp-indent-defform (state indent-point)
1070 ;; like defun if the first form is placed on the next line, otherwise
1073 (put 'lambda 'lisp-indent-function 'defun)
1074 (put 'autoload 'lisp-indent-function 'defun)
1100 (put 'eval-after-load 'lisp-indent-function 1)
1106 (defun indent-sexp (&optional endpos)
1115 ;; the defun we are in.
1209 (defun lisp-indent-region (start end)
1219 (defun indent-pp-sexp (&optional arg)
1243 (defun lisp-fill-paragraph (&optional justify)
1291 (defun indent-code-rigidly (start end arg &optional nochange-regexp)