emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master a68508c10b: Don't say that macro-expansion error is a warning


From: Mattias Engdegård
Subject: master a68508c10b: Don't say that macro-expansion error is a warning
Date: Thu, 30 Jun 2022 09:08:12 -0400 (EDT)

branch: master
commit a68508c10b0ab60e23d13164bd6c83e38ce36f93
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    Don't say that macro-expansion error is a warning
    
    * lisp/emacs-lisp/gv.el:
    * lisp/emacs-lisp/macroexp.el (internal-macroexpand-for-load): Since
    eager macro-expansion errors are no longer warnings, don't say so.
---
 lisp/emacs-lisp/gv.el       | 2 +-
 lisp/emacs-lisp/macroexp.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 7cfa1f2dad..54ddc7ac75 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -602,7 +602,7 @@ This is like the `*' operator of the C language.
 REF must have been previously obtained with `gv-ref'."
   (funcall (car ref)))
 ;; Don't use `declare' because it seems to introduce circularity problems:
-;; Warning: Eager macro-expansion skipped due to cycle:
+;; Eager macro-expansion skipped due to cycle:
 ;;  … => (load "gv.el") => (macroexpand-all (defsubst gv-deref …)) => 
(macroexpand (defun …)) => (load "gv.el")
 (gv-define-setter gv-deref (v ref) `(funcall (cdr ,ref) ,v))
 
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 0fb4cf680a..4db50bbaa9 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -796,7 +796,7 @@ test of free variables in the following ways:
         (if (eq (car-safe (car bt)) 'macroexpand-all) (setq bt (cdr bt)))
         (if macroexp--debug-eager
             (debug 'eager-macroexp-cycle)
-          (error "Warning: Eager macro-expansion skipped due to cycle:\n  %s"
+          (error "Eager macro-expansion skipped due to cycle:\n  %s"
                  (mapconcat #'prin1-to-string (nreverse bt) " => ")))
         (push 'skip macroexp--pending-eager-loads)
         form))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]