# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 955363857 0
# Node ID e564d806233ef12d2fcf9b44c85bad21e69a0387
# Parent  1c30dbc6c0d61a73668572652eeadcffd074b069
(with-buffer-unmodified): Fix bug introduced by `)'
at the wrong place.

diff -r 1c30dbc6c0d6 -r e564d806233e lisp/jit-lock.el
--- 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.