diff options
| author | Daniel Colascione <dancol@dancol.org> | 2014-04-21 02:34:21 -0700 |
|---|---|---|
| committer | Daniel Colascione <dancol@dancol.org> | 2014-04-21 02:34:21 -0700 |
| commit | 985c035f2d4cf326a816fe463c400be96e358be2 (patch) | |
| tree | 8db28fe4100f4e5988824dcc956fd6a7088e98ae /lisp/emacs-lisp/macroexp.el | |
| parent | 0c8d94555ce550d87afd6293bf5d17e864c13864 (diff) | |
| download | emacs-985c035f2d4cf326a816fe463c400be96e358be2.tar.gz emacs-985c035f2d4cf326a816fe463c400be96e358be2.tar.bz2 emacs-985c035f2d4cf326a816fe463c400be96e358be2.zip | |
Correctly treat progn contents as toplevel forms when byte compiling
Diffstat (limited to 'lisp/emacs-lisp/macroexp.el')
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index e3a746fa69e..c2bfc891b72 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -97,7 +97,10 @@ each clause." (defun macroexp--compiler-macro (handler form) (condition-case err (apply handler form (cdr form)) - (error (message "Compiler-macro error for %S: %S" (car form) err) + (error + (message "--------------------------------------------------") + (backtrace) + (message "Compiler-macro error for %S: %S" (car form) err) form))) (defun macroexp--funcall-if-compiled (_form) |