summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/macroexp.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2022-09-03 10:52:57 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2022-09-03 11:03:32 -0400
commitb01d529e8de00b38a2a9e401254a34f018ee4004 (patch)
tree28aa5d5a38b72340b1a72000ccb852c8c53667eb /lisp/emacs-lisp/macroexp.el
parentd60e930d34fe0f4a88a790f98dcd43999327240c (diff)
downloademacs-b01d529e8de00b38a2a9e401254a34f018ee4004.tar.gz
emacs-b01d529e8de00b38a2a9e401254a34f018ee4004.tar.bz2
emacs-b01d529e8de00b38a2a9e401254a34f018ee4004.zip
* lisp/emacs-lisp/macroexp.el (macroexp--compiler-macro): Soften message
Clarify that the error is "harmless".
Diffstat (limited to 'lisp/emacs-lisp/macroexp.el')
-rw-r--r--lisp/emacs-lisp/macroexp.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index c3ba1b36d44..f4df40249de 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -110,7 +110,8 @@ each clause."
(let ((symbols-with-pos-enabled t))
(apply handler form (cdr form)))
(error
- (message "Compiler-macro error for %S: Handler: %S\n%S" (car form) handler err)
+ (message "Warning: Optimization failure for %S: Handler: %S\n%S"
+ (car form) handler err)
form)))
(defun macroexp--funcall-if-compiled (_form)