diff options
| author | Daniel MartÃn <mardani29@yahoo.es> | 2022-08-25 14:37:36 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-25 14:37:36 +0200 |
| commit | dbec115948657d4f0b5c8ad86410b8e1c9e825d2 (patch) | |
| tree | 560370ac70ab6042042e696a39e2121bf9b0b233 /lisp/progmodes/elisp-mode.el | |
| parent | b947f80a623c9a8c6abd2bcd4e2e245af6b0e03a (diff) | |
| download | emacs-dbec115948657d4f0b5c8ad86410b8e1c9e825d2.tar.gz emacs-dbec115948657d4f0b5c8ad86410b8e1c9e825d2.tar.bz2 emacs-dbec115948657d4f0b5c8ad86410b8e1c9e825d2.zip | |
Fix instrumented eval-defun not printing "Edebug:" to the echo area
* lisp/progmodes/elisp-mode.el (elisp--eval-defun): Determine if we're
instrumenting a function and call eval-region with PRINTFLAG set to
nil if so (Bug#50245).
* test/lisp/progmodes/elisp-mode-tests.el
(eval-defun-prints-edebug-when-instrumented): Add a new test.
Diffstat (limited to 'lisp/progmodes/elisp-mode.el')
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 9dc67010aa7..4ada27a1aca 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -1646,6 +1646,7 @@ Return the result of evaluation." ;; printing, not while evaluating. (defvar elisp--eval-defun-result) (let ((debug-on-error eval-expression-debug-on-error) + (edebugging edebug-all-defs) elisp--eval-defun-result) (save-excursion ;; Arrange for eval-region to "read" the (possibly) altered form. @@ -1670,8 +1671,9 @@ Return the result of evaluation." (elisp--eval-defun-1 (macroexpand form))))) (print-length eval-expression-print-length) - (print-level eval-expression-print-level)) - (eval-region beg end standard-output + (print-level eval-expression-print-level) + (should-print (if (not edebugging) standard-output))) + (eval-region beg end should-print (lambda (_ignore) ;; Skipping to the end of the specified region ;; will make eval-region return. |