diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-12-16 23:39:51 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-12-16 23:39:51 -0500 |
| commit | 522acbf49c349710ef0c69df873472e62f816cdb (patch) | |
| tree | 78ebaaf6ba63a4fedffaa7778ad3e13c9e24e719 /lisp/emacs-lisp | |
| parent | 2f65525774b6e7edf119db678c9eb78cbb84de6a (diff) | |
| download | emacs-522acbf49c349710ef0c69df873472e62f816cdb.tar.gz emacs-522acbf49c349710ef0c69df873472e62f816cdb.tar.bz2 emacs-522acbf49c349710ef0c69df873472e62f816cdb.zip | |
* lisp/emacs-lisp/macroexp.el: Don't hide backtrace
(macroexp--compiler-macro): Use condition-case-unless-debug.
Diffstat (limited to 'lisp/emacs-lisp')
| -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." clause))) (defun macroexp--compiler-macro (handler form) - (condition-case err + (condition-case-unless-debug err (apply handler form (cdr form)) (error (message "Compiler-macro error for %S: %S" (car form) err) |