changeset 87419:b23fbf3b100b

(save-buffer-state): Make sure the state of the buffer is always restored.
author Andreas Schwab <schwab@suse.de>
date Wed, 26 Dec 2007 19:04:50 +0000
parents ba5aa1d3da46
children 8338b262397c
files lisp/font-lock.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.