aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/emacs-lisp/cl-loaddefs.el2
-rw-r--r--lisp/emacs-lisp/cl-macs.el2
3 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72e1da01396..45f6e33c5a5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12009-09-11 Juanma Barranquero <lekktu@gmail.com>
2
3 * emacs-lisp/cl-macs.el (help-add-fundoc-usage): Declare.
4
12009-09-11 Daiki Ueno <ueno@unixuser.org> 52009-09-11 Daiki Ueno <ueno@unixuser.org>
2 6
3 * epg.el (epg-cipher-algorithm-alist): Add CAMELLIA. 7 * epg.el (epg-cipher-algorithm-alist): Add CAMELLIA.
diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el
index 8aa44a254e7..2e1bc2b05f8 100644
--- a/lisp/emacs-lisp/cl-loaddefs.el
+++ b/lisp/emacs-lisp/cl-loaddefs.el
@@ -282,7 +282,7 @@ Not documented
282;;;;;; do-all-symbols do-symbols dotimes dolist do* do loop return-from 282;;;;;; do-all-symbols do-symbols dotimes dolist do* do loop return-from
283;;;;;; return block etypecase typecase ecase case load-time-value 283;;;;;; return block etypecase typecase ecase case load-time-value
284;;;;;; eval-when destructuring-bind function* defmacro* defun* gentemp 284;;;;;; eval-when destructuring-bind function* defmacro* defun* gentemp
285;;;;;; gensym) "cl-macs" "cl-macs.el" "2aecc3d85778ca624e541d08032aa12a") 285;;;;;; gensym) "cl-macs" "cl-macs.el" "cee0f106d963d8d1665bc67bea707297")
286;;; Generated autoloads from cl-macs.el 286;;; Generated autoloads from cl-macs.el
287 287
288(autoload 'gensym "cl-macs" "\ 288(autoload 'gensym "cl-macs" "\
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 1a8f1b18e6e..952c86740f5 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -230,6 +230,8 @@ It is a list of elements of the form either:
230(defvar bind-block) (defvar bind-defs) (defvar bind-enquote) 230(defvar bind-block) (defvar bind-defs) (defvar bind-enquote)
231(defvar bind-inits) (defvar bind-lets) (defvar bind-forms) 231(defvar bind-inits) (defvar bind-lets) (defvar bind-forms)
232 232
233(declare-function help-add-fundoc-usage "help-fns" (docstring arglist))
234
233(defun cl-transform-lambda (form bind-block) 235(defun cl-transform-lambda (form bind-block)
234 (let* ((args (car form)) (body (cdr form)) (orig-args args) 236 (let* ((args (car form)) (body (cdr form)) (orig-args args)
235 (bind-defs nil) (bind-enquote nil) 237 (bind-defs nil) (bind-enquote nil)