[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3b0d848b54: Fix position argument to macroexp--warn-wrap in cconv--convert-funcbody,
Alan Mackenzie <=