[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 74463909cbb 2/2: * lisp/emacs-lisp/macroexp.el (mapcan): Set funa
From: |
Mattias Engdegård |
Subject: |
master 74463909cbb 2/2: * lisp/emacs-lisp/macroexp.el (mapcan): Set funarg-positions. |
Date: |
Mon, 20 Feb 2023 07:18:31 -0500 (EST) |
branch: master
commit 74463909cbb8d297da2d731f5cac15effb857f4e
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
* lisp/emacs-lisp/macroexp.el (mapcan): Set funarg-positions.
---
lisp/emacs-lisp/macroexp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index c909ffb6933..c57a27069d6 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -496,7 +496,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
;; Record which arguments expect functions, so we can warn when those
;; are accidentally quoted with ' rather than with #'
(dolist (f '( funcall apply mapcar mapatoms mapconcat mapc cl-mapcar maphash
- map-char-table map-keymap map-keymap-internal))
+ mapcan map-char-table map-keymap map-keymap-internal))
(put f 'funarg-positions '(1)))
(dolist (f '( add-hook remove-hook advice-remove advice--remove-function
defalias fset global-set-key run-after-idle-timeout