emacs-diffs
[Top][All Lists]
Advanced

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

master 3b0d848b54: Fix position argument to macroexp--warn-wrap in cconv


From: Alan Mackenzie
Subject: master 3b0d848b54: Fix position argument to macroexp--warn-wrap in cconv--convert-funcbody
Date: Sun, 23 Jan 2022 08:49:56 -0500 (EST)

branch: master
commit 3b0d848b5471a9bb1602d95cdbb6fde5416b0a96
Author: Alan Mackenzie <acm@muc.de>
Commit: Alan Mackenzie <acm@muc.de>

    Fix position argument to macroexp--warn-wrap in cconv--convert-funcbody
    
    * lisp/emacs-lisp/cconv.el (cconv--convert-funcbody): Change the position
    argument to macroexp--warn-wrap from BODY to ARG, to give correct positions 
in
    warning messages.
---
 lisp/emacs-lisp/cconv.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 7b22121db0..c16619bc45 100644
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -286,7 +286,7 @@ of converted forms."
               (let (and (pred stringp) msg)
                 (cconv--warn-unused-msg arg "argument")))
          (if (assq arg env) (push `(,arg . nil) env)) ;FIXME: Is it needed?
-         (push (lambda (body) (macroexp--warn-wrap body msg body 'lexical)) 
wrappers))
+         (push (lambda (body) (macroexp--warn-wrap arg msg body 'lexical)) 
wrappers))
         (_
          (if (assq arg env) (push `(,arg . nil) env)))))
     (setq funcbody (mapcar (lambda (form)



reply via email to

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