Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.264 emacs/lisp/font-lock.el:1.265
*** emacs/lisp/font-lock.el:1.264 Thu Jun 16 16:09:42 2005
--- emacs/lisp/font-lock.el Wed Jun 29 08:19:17 2005
***************
*** 620,625 ****
--- 620,626 ----
;; 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,641 ****
,@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.
--- 635,640 ----
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
