(with-buffer-unmodified): Fix bug introduced by `)'
authorGerd Moellmann <gerd@gnu.org>
Mon, 10 Apr 2000 10:52:46 +0000 (10:52 +0000)
committerGerd Moellmann <gerd@gnu.org>
Mon, 10 Apr 2000 10:52:46 +0000 (10:52 +0000)
at the wrong place.

lisp/ChangeLog
lisp/jit-lock.el

index a7aff2e3cbd6164e81bf932e2959c5308461a366..4ca27df0727c42e0e25cfd67fcc134590fece33a 100644 (file)
@@ -1,3 +1,8 @@
+2000-04-10  Gerd Moellmann  <gerd@gnu.org>
+
+       * jit-lock.el (with-buffer-unmodified): Fix bug introduced by `)'
+       at the wrong place.
+
 2000-04-09  Gerd Moellmann  <gerd@gnu.org>
 
        * progmodes/ebrowse-ffh.el: New file.
index 6cd4d0f3843b0cd9df75eb2091bbcfc5aafc921d..f44bc0e9f0df0203c163156ed9b4e218e803dc43 100644 (file)
@@ -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.