From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Jul 2011 14:59:42 +0000 (+0200)
Subject: * emacs-lisp/cl-macs.el (declare): Doc string fix-up.
X-Git-Tag: emacs-pretest-24.0.90~104^2~248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c39da69053fc7bd17a3859dc56a9cd0991961999;p=emacs.git

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

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))