Lines Matching defs:eval
84 This applies to `eval-defun', `eval-region', `eval-buffer', and
85 `eval-current-buffer'. `eval-region' is also called by
86 `eval-last-sexp', and `eval-print-last-sexp'.
107 (defcustom edebug-eval-macro-args nil
240 (def-edebug-spec symbol (eval spec-form)))
456 ;;; Redefine read and eval functions
458 ;; eval-defun is redefined to check edebug-all-forms and edebug-all-defs.
484 (or (fboundp 'edebug-original-eval-defun)
485 (defalias 'edebug-original-eval-defun (symbol-function 'eval-defun)))
488 ;; without actually replacing the eval-defun command.
489 (defun edebug-eval-defun (edebug-it)
517 ;; This should be consistent with `eval-defun-1', but not the
526 (set-default (nth 1 form) (eval (nth 2 form))))
532 ;; See comments in `eval-defun-1' for purpose of code below
539 (setq edebug-result (eval form))
546 (defalias 'edebug-defun 'edebug-eval-top-level-form)
549 (defun edebug-eval-top-level-form ()
551 This is like `eval-defun' except that it steps the code for Edebug
553 using `eval-expression' (which see).
567 (eval-expression
606 (defun edebug-install-read-eval-functions ()
611 (defalias 'eval-defun 'edebug-eval-defun)))
613 (defun edebug-uninstall-read-eval-functions ()
616 (defalias 'eval-defun (symbol-function 'edebug-original-eval-defun)))
1059 ;; should appear to work like eval-defun.
1116 (max-lisp-eval-depth (+ 800 max-lisp-eval-depth))
1477 (if edebug-eval-macro-args
2112 (def-edebug-spec eval-when-compile t)
2113 (def-edebug-spec eval-and-compile t)
2248 ;; when a function evaluated with edebug-eval-top-level-form is entered.
2256 ;; Binding max-lisp-eval-depth here is OK,
2259 (max-lisp-eval-depth (+ 100 max-lisp-eval-depth)) ; too much??
2395 ;; Called from functions compiled with edebug-eval-top-level-form.
2416 ;; Called from functions compiled with edebug-eval-top-level-form.
2473 ;; Don't really try to enter edebug within an eval from redisplay.
2486 (eval edebug-global-break-condition))
2497 (eval edebug-break-condition))))))
2532 (defvar edebug-eval-buffer) ; for the evaluation list.
2538 (defvar edebug-eval-list nil) ;; List of expressions to evaluate.
2571 edebug-eval-buffer ; declared here so we can kill it below
2572 (edebug-eval-result-list (and edebug-eval-list
2573 (edebug-eval-result-list)))
2616 ;; Now display eval list, if any.
2619 (edebug-eval-display edebug-eval-result-list)
2842 (eval-when-compile
2934 ;; Could be an option to keep eval display up.
2935 (if edebug-eval-buffer (kill-buffer edebug-eval-buffer))
3316 (edebug-set-mode 'next "" "Edebug will stop after next eval."))
3425 (edebug-eval-top-level-form)
3436 (edebug-eval-top-level-form)
3661 (defun edebug-eval (edebug-expr)
3664 (eval (cl-macroexpand-all edebug-expr cl-debug-env))
3665 (eval edebug-expr)))
3667 (defun edebug-safe-eval (edebug-expr)
3671 (edebug-eval edebug-expr)
3702 (eval-and-compile
3753 (eval-expression-print-format edebug-previous-value))))
3762 (defun edebug-eval-expression (edebug-expr)
3771 (setq values (cons (edebug-eval edebug-expr) values))
3773 (eval-expression-print-format (car values))))))
3775 (defun edebug-eval-last-sexp ()
3779 (edebug-eval-expression (edebug-last-sexp)))
3781 (defun edebug-eval-print-last-sexp ()
3788 (edebug-safe-prin1-to-string (edebug-safe-eval edebug-form))))
3843 (define-key map "e" 'edebug-eval-expression)
3844 (define-key map "\C-x\C-e" 'edebug-eval-last-sexp)
3845 (define-key map "E" 'edebug-visit-eval-list)
3928 Also see bindings for the eval list buffer *edebug* in `edebug-eval-mode'.
3967 ;;; edebug eval list mode
3971 (defun edebug-eval-result-list ()
3972 "Return a list of evaluations of edebug-eval-list"
3977 (mapcar 'edebug-safe-eval edebug-eval-list)))
3979 (defun edebug-eval-display-list (edebug-eval-result-list)
3980 ;; Assumes edebug-eval-buffer exists.
3981 (let ((edebug-eval-list-temp edebug-eval-list)
3982 (standard-output edebug-eval-buffer)
3985 (set-buffer edebug-eval-buffer)
3987 (while edebug-eval-list-temp
3988 (prin1 (car edebug-eval-list-temp)) (terpri)
3989 (prin1 (car edebug-eval-result-list)) (terpri)
3991 (setq edebug-eval-list-temp (cdr edebug-eval-list-temp))
3992 (setq edebug-eval-result-list (cdr edebug-eval-result-list)))
3993 (edebug-pop-to-buffer edebug-eval-buffer)
3996 (defun edebug-create-eval-buffer ()
3997 (if (not (and edebug-eval-buffer (buffer-name edebug-eval-buffer)))
3999 (set-buffer (setq edebug-eval-buffer (get-buffer-create "*edebug*")))
4000 (edebug-eval-mode))))
4003 ;; with calls in user functions, e.g. (edebug-eval-display)
4005 (defun edebug-eval-display (edebug-eval-result-list)
4007 It modifies the context by popping up the eval display."
4008 (if edebug-eval-result-list
4010 (edebug-create-eval-buffer)
4011 (edebug-eval-display-list edebug-eval-result-list)
4014 (defun edebug-eval-redisplay ()
4015 "Redisplay eval list in outside environment.
4017 (edebug-create-eval-buffer)
4019 (edebug-eval-display-list (edebug-eval-result-list))
4022 (defun edebug-visit-eval-list ()
4024 (edebug-eval-redisplay)
4025 (edebug-pop-to-buffer edebug-eval-buffer))
4028 (defun edebug-update-eval-list ()
4029 "Replace the evaluation list with the sexps now in the eval buffer."
4050 (setq edebug-eval-list (nreverse new-list))
4051 (edebug-eval-redisplay)
4055 (defun edebug-delete-eval-item ()
4065 (edebug-update-eval-list))
4069 (defvar edebug-eval-mode-map nil
4072 (unless edebug-eval-mode-map
4073 (setq edebug-eval-mode-map (make-sparse-keymap))
4074 (set-keymap-parent edebug-eval-mode-map lisp-interaction-mode-map)
4076 (define-key edebug-eval-mode-map "\C-c\C-w" 'edebug-where)
4077 (define-key edebug-eval-mode-map "\C-c\C-d" 'edebug-delete-eval-item)
4078 (define-key edebug-eval-mode-map "\C-c\C-u" 'edebug-update-eval-list)
4079 (define-key edebug-eval-mode-map "\C-x\C-e" 'edebug-eval-last-sexp)
4080 (define-key edebug-eval-mode-map "\C-j" 'edebug-eval-print-last-sexp))
4082 (put 'edebug-eval-mode 'mode-class 'special)
4084 (define-derived-mode edebug-eval-mode lisp-interaction-mode "Edebug Eval"
4093 \\{edebug-eval-mode-map}
4303 (set variable (not (eval variable)))
4304 (message "%s: %s" variable (eval variable)))
4349 ["Expression" edebug-eval-expression t]
4350 ["Last Sexp" edebug-eval-last-sexp t]
4351 ["Visit Eval List" edebug-visit-eval-list t])
4416 (eval-when-compile
4421 (eval-when-compile
4422 ;; The body of eval-when-compile seems to get evaluated with eval-defun.
4462 edebug-original-eval-defun
4515 ;; Install edebug read and eval functions.
4516 (edebug-install-read-eval-functions)