Lines Matching defs:eval
95 (eval-when-compile
110 (eval-when-compile
118 (eval-when-compile
282 (define-key emacs-lisp-mode-map "\e\C-x" 'eval-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)
369 (define-key map "\e\C-x" 'lisp-eval-defun)
413 (defun lisp-eval-defun (&optional and-go)
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)
462 "Set up text properties for the output of `eval-last-sexp-1'.
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)
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 ()
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
716 (setq form (eval-defun-1 (macroexpand form)))
720 ;; will make eval-region return.
726 (defun eval-defun (edebug-it)
735 If `eval-expression-debug-on-error' is non-nil, which is the default,
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))
1100 (put 'eval-after-load 'lisp-indent-function 1)