From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Jul 2011 13:46:52 +0000 (+0200)
Subject: * emacs-lisp/cl-macs.el (declare): Add a doc string (bug#8690).
X-Git-Tag: emacs-pretest-24.0.90~104^2~253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4bf0979f4c5b87f53a1da435569ba5646e1d93e5;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76b1d779843..c315d6a2ff3 100644
--- 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 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).
 
 ;;;###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))