Mercurial > emacs
changeset 63840:0e0d1ff0b641
(save-buffer-state): Use `declare'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 29 Jun 2005 08:19:17 +0000 |
| parents | 5cbac9cfd55c |
| children | a7d45b7cc6d5 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Wed Jun 29 08:14:53 2005 +0000 +++ b/lisp/font-lock.el Wed Jun 29 08:19:17 2005 +0000 @@ -620,6 +620,7 @@ ;; We use this to preserve or protect things when modifying text properties. (defmacro save-buffer-state (varlist &rest body) "Bind variables according to VARLIST and eval BODY restoring buffer state." + (declare (indent 1) (debug let)) (let ((modified (make-symbol "modified"))) `(let* ,(append varlist `((,modified (buffer-modified-p)) @@ -634,8 +635,6 @@ ,@body) (unless ,modified (restore-buffer-modified-p nil))))) - (put 'save-buffer-state 'lisp-indent-function 1) - (def-edebug-spec save-buffer-state let) ;; ;; Shut up the byte compiler. (defvar font-lock-face-attributes)) ; Obsolete but respected if set.