* emacs-lisp/cl-macs.el (declare): Add a doc string (bug#8690).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76b1d779843e77d1a2b96ed7e81c4267abde0504..c315d6a2ff3a2d76a9da9a949fc1c6ca4dcddfee 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-07-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * emacs-lisp/cl-macs.el (declare): Add a doc string (bug#8690).
+
        * isearch.el (isearch-barrier): Add a doc string, since it's
        mentioned in a function doc string (bug#8678).
 

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 2813cc4f0655c684a6661dec831f7191555d5767..623d1c6418f0832a09ff17f67e2583b019ac9432 100644 (file)
--- 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).
 
 ;;;###autoload
 (defmacro declare (&rest specs)
+  "Declare something about SPECS while compiling.
+For instance
+
+  \(declare (warn 0))
+
+will turn off byte-compile warnings."
   (if (cl-compiling-file)
       (while specs
        (if (listp cl-declare-stack) (push (car specs) cl-declare-stack))