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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f32e44beb28455d31a4488e0429fde322cc3867..1ec6c18e6a93a5ba5fb57d7de441939a568968a7 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): 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 623d1c6418f0832a09ff17f67e2583b019ac9432..4f9e0e8b70a3e8d9adcb106d38ba142008b6ce37 100644 (file)
--- 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))