* emacs-lisp/cl-macs.el (declare): Doc string fix-up.

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f32e44beb2..1ec6c18e6a9 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): Doc string fix-up.
+
         * international/mule-cmds.el
         (describe-specified-language-support): Make the error message
         clearer (bug#8905).
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 623d1c6418f..4f9e0e8b70a 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1601,12 +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.
+  "Declare SPECS about the current function while compiling.
 For instance
 
   \(declare (warn 0))
 
-will turn off byte-compile warnings."
+will turn off byte-compile warnings in the function."
   (if (cl-compiling-file)
       (while specs
         (if (listp cl-declare-stack) (push (car specs) cl-declare-stack))