# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1017408679 0
# Node ID 8c0a16af093a7bf196de65c0e6d11a558851d595
# Parent  8dcac1c05e8e048e6abf96c0ac98d6b3f879c649
(save-buffer-state): Use make-symbol to bind `modified'.

diff -r 8dcac1c05e8e -r 8c0a16af093a lisp/font-lock.el
--- a/lisp/font-lock.el	Fri Mar 29 12:48:09 2002 +0000
+++ b/lisp/font-lock.el	Fri Mar 29 13:31:19 2002 +0000
@@ -677,14 +677,20 @@
   ;; 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."
-    `(let* ,(append varlist
-		    '((modified (buffer-modified-p)) (buffer-undo-list t)
-		      (inhibit-read-only t) (inhibit-point-motion-hooks t)
-		      (inhibit-modification-hooks t)
-		      deactivate-mark buffer-file-name buffer-file-truename))
-       ,@body
-       (unless modified
-	 (restore-buffer-modified-p nil))))
+    (let ((modified (make-symbol "modified")))
+      `(let* ,(append varlist
+		      '((,modified (buffer-modified-p))
+			(buffer-undo-list t)
+			(inhibit-read-only t)
+			(inhibit-point-motion-hooks t)
+			(inhibit-modification-hooks t)
+			deactivate-mark
+			buffer-file-name
+			buffer-file-truename))
+	 (progn
+	   ,@body)
+	 (unless ,modified
+	   (restore-buffer-modified-p nil)))))
   (put 'save-buffer-state 'lisp-indent-function 1)
   (def-edebug-spec save-buffer-state let)
   ;;