diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76b1d779843..c315d6a2ff3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * emacs-lisp/cl-macs.el (declare): Add a doc string (bug#8690). | ||
| 4 | |||
| 3 | * isearch.el (isearch-barrier): Add a doc string, since it's | 5 | * isearch.el (isearch-barrier): Add a doc string, since it's |
| 4 | mentioned in a function doc string (bug#8678). | 6 | mentioned in a function doc string (bug#8678). |
| 5 | 7 | ||
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 2813cc4f065..623d1c6418f 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -1601,6 +1601,12 @@ values. For compatibility, (values A B C) is a synonym for (list A B C). | |||
| 1601 | 1601 | ||
| 1602 | ;;;###autoload | 1602 | ;;;###autoload |
| 1603 | (defmacro declare (&rest specs) | 1603 | (defmacro declare (&rest specs) |
| 1604 | "Declare something about SPECS while compiling. | ||
| 1605 | For instance | ||
| 1606 | |||
| 1607 | \(declare (warn 0)) | ||
| 1608 | |||
| 1609 | will turn off byte-compile warnings." | ||
| 1604 | (if (cl-compiling-file) | 1610 | (if (cl-compiling-file) |
| 1605 | (while specs | 1611 | (while specs |
| 1606 | (if (listp cl-declare-stack) (push (car specs) cl-declare-stack)) | 1612 | (if (listp cl-declare-stack) (push (car specs) cl-declare-stack)) |