(with-buffer-unmodified): Fix bug introduced by `)'

at the wrong place.

(with-buffer-unmodified): Fix bug introduced by `)'
at the wrong place.
25fbf2c4 · Gerd Moellmann · 857e88e2 · 25fbf2c4 · 25fbf2c4
Commit 25fbf2c4 authored Apr 10, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/jit-lock.el lisp/jit-lock.el +2 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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.