mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(cl-set-nthcdr): Make it a defsubst so that

Browse source 
(setf (nthcdr ..) ..) doesn't require CL at runtime.
This commit is contained in:
Stefan Monnier 2008-05-12 01:45:41 +00:00
parent 6dc30f4463
commit 4ded1ddb22
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-12 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl.el (cl-set-nthcdr): Make it a defsubst so that
(setf (nthcdr ..) ..) doesn't require CL at runtime.
2008-05-11 Carsten Dominik <dominik@science.uva.nl>
* org/org.el (org-modules): Repair problems with loading

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

@ -166,7 +166,7 @@ an element already on the list.
(defun cl-set-elt (seq n val)
(if (listp seq) (setcar (nthcdr n seq) val) (aset seq n val)))
(defun cl-set-nthcdr (n list x)
(defsubst cl-set-nthcdr (n list x)
(if (<= n 0) x (setcdr (nthcdr (1- n) list) x) list))
(defun cl-set-buffer-substring (start end val)