[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110242: * lisp/emacs-lisp/cl.el (fle
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110242: * lisp/emacs-lisp/cl.el (flet): Fix case of obsolescence message. |
Date: |
Fri, 28 Sep 2012 19:51:20 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110242
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2012-09-28 19:51:20 -0400
message:
* lisp/emacs-lisp/cl.el (flet): Fix case of obsolescence message.
modified:
lisp/ChangeLog
lisp/emacs-lisp/cl.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-09-28 23:30:52 +0000
+++ b/lisp/ChangeLog 2012-09-28 23:51:20 +0000
@@ -1,5 +1,7 @@
2012-09-28 Glenn Morris <address@hidden>
+ * emacs-lisp/cl.el (flet): Fix case of obsolescence message.
+
* emacs-lisp/bytecomp.el (byte-compile-cl-file-p):
Only "cl.el" counts as cl these days.
=== modified file 'lisp/emacs-lisp/cl.el'
--- a/lisp/emacs-lisp/cl.el 2012-08-15 16:29:11 +0000
+++ b/lisp/emacs-lisp/cl.el 2012-09-28 23:51:20 +0000
@@ -452,7 +452,7 @@
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
(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
(lambda (x)
(if (or (and (fboundp (car x))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110242: * lisp/emacs-lisp/cl.el (flet): Fix case of obsolescence message.,
Glenn Morris <=