From 3b0d848b5471a9bb1602d95cdbb6fde5416b0a96 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Sun, 23 Jan 2022 13:47:38 +0000 Subject: [PATCH] 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 7b22121db01..c16619bc45d 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) -- 2.39.5