diff options
| author | Alan Mackenzie <acm@muc.de> | 2022-01-23 13:47:38 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2022-01-23 13:49:27 +0000 |
| commit | 3b0d848b5471a9bb1602d95cdbb6fde5416b0a96 (patch) | |
| tree | b7844d17e8e5cb2fd50ce5123480e4db02b42317 /lisp/emacs-lisp | |
| parent | 9f5048456af11b533c8762d8e1f7d63cda896535 (diff) | |
| download | emacs-3b0d848b5471a9bb1602d95cdbb6fde5416b0a96.tar.gz emacs-3b0d848b5471a9bb1602d95cdbb6fde5416b0a96.tar.bz2 emacs-3b0d848b5471a9bb1602d95cdbb6fde5416b0a96.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |