]> git.eshelyaron.com Git - emacs.git/commitdiff
Don't say that macro-expansion error is a warning
authorMattias Engdegård <mattiase@acm.org>
Thu, 30 Jun 2022 12:55:45 +0000 (14:55 +0200)
committerMattias Engdegård <mattiase@acm.org>
Thu, 30 Jun 2022 13:08:02 +0000 (15:08 +0200)
* 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
lisp/emacs-lisp/macroexp.el

index 7cfa1f2dadc5f7bea068e9216ce96a35dffbc936..54ddc7ac757281224958bd62543bc50bd6557e1d 100644 (file)
@@ -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))
 
index 0fb4cf680a8e7b661e3f5be6db0e09ae0904131f..4db50bbaa9b200259894735d8cc206722007adeb 100644 (file)
@@ -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))