diff --git a/lisp/ielm.el b/lisp/ielm.el index fb285e80f6..30d6515e69 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -354,7 +354,7 @@ nonempty, then flushes the buffer." (wbuf ielm-working-buffer) ; current buffer after evaluation (pmark (ielm-pm))) (unless (ielm-is-whitespace-or-comment string) - (condition-case err + (condition-case-unless-debug err (let ((rout (read-from-string string))) (setq form (car rout) pos (cdr rout))) @@ -384,7 +384,7 @@ nonempty, then flushes the buffer." (set-match-data ielm-match-data) (save-excursion (with-temp-buffer - (condition-case err + (condition-case-unless-debug err (unwind-protect ;; The next let form creates default ;; bindings for *, ** and ***. But @@ -436,7 +436,7 @@ nonempty, then flushes the buffer." (goto-char pmark) (unless error-type - (condition-case nil + (condition-case-unless-debug nil ;; Self-referential objects cause loops in the printer, so ;; trap quits here. May as well do errors, too (unless for-effect @@ -517,9 +517,6 @@ causes output to be directed to the ielm buffer. set to a different value during evaluation. You can use (princ VALUE) or (pp VALUE) to write to the ielm buffer. -Expressions evaluated by IELM are not subject to `debug-on-quit' or -`debug-on-error'. - The behavior of IELM may be customized with the following variables: * To stop beeping on error, set `ielm-noisy' to nil. * If you don't like the prompt, you can change it by setting `ielm-prompt'.