diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-loaddefs.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
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 @@ | |||
| 1 | 2009-09-11 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * emacs-lisp/cl-macs.el (help-add-fundoc-usage): Declare. | ||
| 4 | |||
| 1 | 2009-09-11 Daiki Ueno <ueno@unixuser.org> | 5 | 2009-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) |