# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1120033157 0
# Node ID 0e0d1ff0b641a67ec4037214f2027b381b38795e
# Parent  5cbac9cfd55c1750a27a2d80a13ce5cba01227e1
(save-buffer-state): Use `declare'.

diff -r 5cbac9cfd55c -r 0e0d1ff0b641 lisp/font-lock.el
--- 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.