From 25fbf2c48acd0f410592a5078c3903d7733cad48 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 10 Apr 2000 10:52:46 +0000 Subject: [PATCH] (with-buffer-unmodified): Fix bug introduced by `)' at the wrong place. --- lisp/ChangeLog | 5 +++++ lisp/jit-lock.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * jit-lock.el (with-buffer-unmodified): Fix bug introduced by `)' + at the wrong place. + 2000-04-09 Gerd Moellmann * 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. -- 2.39.5