mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

lisp/emacs-lisp/bytecomp.el (seq-sort-by): Improve funarg-positions

Browse source
This commit is contained in:
Stefan Monnier 2025-12-03 14:23:34 -05:00
parent 7f4f9c3b8f
commit c79eb45340
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View file

@ -3606,7 +3606,7 @@ This assumes the function has the `important-return-value' property."
(dolist (f '( funcall apply mapcar mapatoms mapconcat mapc maphash (dolist (f '( funcall apply mapcar mapatoms mapconcat mapc maphash
mapcan map-char-table map-keymap map-keymap-internal mapcan map-char-table map-keymap map-keymap-internal
functionp functionp
seq-do seq-do-indexed seq-sort seq-sort-by seq-group-by seq-do seq-do-indexed seq-sort seq-group-by
seq-find seq-count seq-find seq-count
seq-filter seq-reduce seq-remove seq-keep seq-filter seq-reduce seq-remove seq-keep
seq-map seq-map-indexed seq-mapn seq-mapcat seq-map seq-map-indexed seq-mapn seq-mapcat
@ -3616,6 +3616,7 @@ This assumes the function has the `important-return-value' property."
cl-mapcar cl-mapcan cl-mapcon cl-mapc cl-mapl cl-maplist cl-mapcar cl-mapcan cl-mapcon cl-mapc cl-mapl cl-maplist
)) ))
(put f 'funarg-positions '(1))) (put f 'funarg-positions '(1)))
(put 'seq-sort-by 'funarg-positions '(1 2))
(dolist (f '( defalias fset sort (dolist (f '( defalias fset sort
replace-regexp-in-string replace-regexp-in-string
add-hook remove-hook advice-remove advice--remove-function add-hook remove-hook advice-remove advice--remove-function
@ -3669,7 +3670,6 @@ This assumes the function has the `important-return-value' property."
)) ))
(put (car fa) 'funarg-positions (cdr fa))) (put (car fa) 'funarg-positions (cdr fa)))
(defun byte-compile-normal-call (form) (defun byte-compile-normal-call (form)
(when (and (symbolp (car form)) (when (and (symbolp (car form))
(byte-compile-warning-enabled-p 'callargs (car form))) (byte-compile-warning-enabled-p 'callargs (car form)))