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

* lisp/emacs-lisp/cl.el (flet): Fix case of obsolescence message.

Browse source
This commit is contained in:
Glenn Morris 2012-09-28 19:51:20 -04:00
parent e60b51abaa
commit 277f0cfa8b
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2012-09-28 Glenn Morris <rgm@gnu.org> 2012-09-28 Glenn Morris <rgm@gnu.org>
* emacs-lisp/cl.el (flet): Fix case of obsolescence message.
* emacs-lisp/bytecomp.el (byte-compile-cl-file-p): * emacs-lisp/bytecomp.el (byte-compile-cl-file-p):
Only "cl.el" counts as cl these days. Only "cl.el" counts as cl these days.

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

@ -452,7 +452,7 @@ definitions, or lack thereof).
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)" \(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(declare (indent 1) (debug cl-flet) (declare (indent 1) (debug cl-flet)
(obsolete "Use either `cl-flet' or `cl-letf'." "24.3")) (obsolete "use either `cl-flet' or `cl-letf'." "24.3"))
`(letf ,(mapcar `(letf ,(mapcar
(lambda (x) (lambda (x)
(if (or (and (fboundp (car x)) (if (or (and (fboundp (car x))