Mercurial > emacs

diff lisp/jit-lock.el @ 28533:e564d806233e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 73d4caf44d53
children dbb0996702bd
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.