* lisp/simple.el (save-mark-and-excursion): Add declare forms.

This commit is contained in:
Mark Oteiza 2016-07-03 18:53:39 -04:00
parent 838f122873
commit ca1b9b38dc

View file

@ -5223,6 +5223,7 @@ store it in a Lisp variable. Example:
(defmacro save-mark-and-excursion (&rest body)
"Like `save-excursion', but also save and restore the mark state.
This macro does what `save-excursion' did before Emacs 25.1."
(declare (indent 0) (debug t))
(let ((saved-marker-sym (make-symbol "saved-marker")))
`(let ((,saved-marker-sym (save-mark-and-excursion--save)))
(unwind-protect