# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1198695890 0
# Node ID b23fbf3b100bc48c2e66888fd0116d904fe1e30e
# Parent  ba5aa1d3da4661f0e6ec537ad5865d53a7dbeff6
(save-buffer-state): Make sure the state of the
buffer is always restored.

diff -r ba5aa1d3da46 -r b23fbf3b100b lisp/font-lock.el
--- a/lisp/font-lock.el	Wed Dec 26 17:38:24 2007 +0000
+++ b/lisp/font-lock.el	Wed Dec 26 19:04:50 2007 +0000
@@ -616,10 +616,11 @@
 			deactivate-mark
 			buffer-file-name
 			buffer-file-truename))
-	 (progn
-	   ,@body)
-	 (unless ,modified
-	   (restore-buffer-modified-p nil)))))
+	 (unwind-protect
+	     (progn
+	       ,@body)
+	   (unless ,modified
+	     (restore-buffer-modified-p nil))))))
   ;;
   ;; Shut up the byte compiler.
   (defvar font-lock-face-attributes))	; Obsolete but respected if set.