Fix make-obsolete for internal-get-face.

[gnu-emacs] / lisp / jit-lock.el

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 6cd4d0f3843b0cd9df75eb2091bbcfc5aafc921d..f44bc0e9f0df0203c163156ed9b4e218e803dc43 100644 (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.