diff options
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index bcea708c678..3019ada1bbd 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el | |||
| @@ -560,9 +560,7 @@ The environment used is the one when entering the activation frame at point." | |||
| 560 | (condition-case err | 560 | (condition-case err |
| 561 | (backtrace-eval exp nframe base) | 561 | (backtrace-eval exp nframe base) |
| 562 | (error (setq errored | 562 | (error (setq errored |
| 563 | (format "%s: %s" | 563 | (error-message-string err))))))) |
| 564 | (get (car err) 'error-message) | ||
| 565 | (car (cdr err))))))))) | ||
| 566 | (if errored | 564 | (if errored |
| 567 | (progn | 565 | (progn |
| 568 | (message "Error: %s" errored) | 566 | (message "Error: %s" errored) |