mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

Prefer (defsubst A ...) to (cl-proclaim (inline A))

Browse source 
* lisp/emacs-lisp/cl-macs.el: Remove cl-proclaim...
* lisp/emacs-lisp/cl-extra.el (cl-map, cl-notany, cl-notevery)
(cl-revappend, cl-nreconc):
* lisp/emacs-lisp/cl-lib.el (cl-acons): ...and use defsubst
instead.  (Bug#76294)
This commit is contained in:
Stefan Kangas 2025-02-15 00:40:52 +01:00
parent f05ce9e6bb
commit dc86f59e92
3 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-lib.el
View file

@ -535,7 +535,7 @@ Return a copy of TREE with all elements `eql' to OLD replaced by NEW.
cl-tree (cons a d))))
(t cl-tree)))
(defun cl-acons (key value alist)
(defsubst cl-acons (key value alist)
"Add KEY and VALUE to ALIST.
Return a new list with (cons KEY VALUE) as car and ALIST as cdr."
(declare (side-effect-free error-free))