mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-07-15 15:46:52 +02:00
parent 478615cc10
commit 4bf0979f4c
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

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

6
lisp/emacs-lisp/cl-macs.el
View File

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