From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 10 Apr 2000 10:52:46 +0000 (+0000)
Subject: (with-buffer-unmodified): Fix bug introduced by `)'
X-Git-Tag: emacs-pretest-21.0.90~4299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25fbf2c48acd0f410592a5078c3903d7733cad48;p=emacs.git

(with-buffer-unmodified): Fix bug introduced by `)'
at the wrong place.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7aff2e3cbd..4ca27df0727 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 6cd4d0f3843..f44bc0e9f0d 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -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.