changeset 28533:e564d806233e

(with-buffer-unmodified): Fix bug introduced by `)' at the wrong place.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 10 Apr 2000 10:50:57 +0000
parents 1c30dbc6c0d6
children a25e11b83399
files lisp/jit-lock.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/jit-lock.el	Mon Apr 10 01:52:28 2000 +0000
+++ b/lisp/jit-lock.el	Mon Apr 10 10:50:57 2000 +0000
@@ -38,8 +38,8 @@
     (let ((modified (make-symbol "modified")))
       `(let ((,modified (buffer-modified-p)))
 	 ,@body
-	 (unless ,modified)
-	   (restore-buffer-modified-p nil))))
+	 (unless ,modified
+	   (restore-buffer-modified-p nil)))))
   
   (defmacro with-buffer-prepared-for-font-lock (&rest body)
     "Execute BODY in current buffer, overriding several variables.