diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0993ffcd7a5..f91b20804ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-05-12 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * emacs-lisp/cl.el (cl-set-nthcdr): Make it a defsubst so that | ||
| 4 | (setf (nthcdr ..) ..) doesn't require CL at runtime. | ||
| 5 | |||
| 1 | 2008-05-11 Carsten Dominik <dominik@science.uva.nl> | 6 | 2008-05-11 Carsten Dominik <dominik@science.uva.nl> |
| 2 | 7 | ||
| 3 | * org/org.el (org-modules): Repair problems with loading | 8 | * org/org.el (org-modules): Repair problems with loading |
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 2a179a5e1db..c03c91d76fa 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el | |||
| @@ -166,7 +166,7 @@ an element already on the list. | |||
| 166 | (defun cl-set-elt (seq n val) | 166 | (defun cl-set-elt (seq n val) |
| 167 | (if (listp seq) (setcar (nthcdr n seq) val) (aset seq n val))) | 167 | (if (listp seq) (setcar (nthcdr n seq) val) (aset seq n val))) |
| 168 | 168 | ||
| 169 | (defun cl-set-nthcdr (n list x) | 169 | (defsubst cl-set-nthcdr (n list x) |
| 170 | (if (<= n 0) x (setcdr (nthcdr (1- n) list) x) list)) | 170 | (if (<= n 0) x (setcdr (nthcdr (1- n) list) x) list)) |
| 171 | 171 | ||
| 172 | (defun cl-set-buffer-substring (start end val) | 172 | (defun cl-set-buffer-substring (start end val) |