From 4bf0979f4c5b87f53a1da435569ba5646e1d93e5 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 15 Jul 2011 15:46:52 +0200 Subject: [PATCH] * emacs-lisp/cl-macs.el (declare): Add a doc string (bug#8690). --- lisp/ChangeLog | 2 ++ lisp/emacs-lisp/cl-macs.el | 6 ++++++ 2 files changed, 8 insertions(+) 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 + * 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)) -- 2.39.2