diff options
| author | Stefan Monnier | 2018-12-16 23:39:51 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2018-12-16 23:39:51 -0500 |
| commit | 522acbf49c349710ef0c69df873472e62f816cdb (patch) | |
| tree | 78ebaaf6ba63a4fedffaa7778ad3e13c9e24e719 | |
| parent | 2f65525774b6e7edf119db678c9eb78cbb84de6a (diff) | |
| download | emacs-522acbf49c349710ef0c69df873472e62f816cdb.tar.gz emacs-522acbf49c349710ef0c69df873472e62f816cdb.zip | |
* lisp/emacs-lisp/macroexp.el: Don't hide backtrace
(macroexp--compiler-macro): Use condition-case-unless-debug.
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 2418264bdbc..4bef5893ae1 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el | |||
| @@ -94,7 +94,7 @@ each clause." | |||
| 94 | clause))) | 94 | clause))) |
| 95 | 95 | ||
| 96 | (defun macroexp--compiler-macro (handler form) | 96 | (defun macroexp--compiler-macro (handler form) |
| 97 | (condition-case err | 97 | (condition-case-unless-debug err |
| 98 | (apply handler form (cdr form)) | 98 | (apply handler form (cdr form)) |
| 99 | (error | 99 | (error |
| 100 | (message "Compiler-macro error for %S: %S" (car form) err) | 100 | (message "Compiler-macro error for %S: %S" (car form) err) |