summaryrefslogtreecommitdiff
path: root/lisp/jit-lock.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2000-04-10 10:50:57 +0000
committerGerd Moellmann <gerd@gnu.org>2000-04-10 10:50:57 +0000
commitec33b82235bbf920745be325538b91d209844d6f (patch)
treed5de3704e24ea5b8d37ba4a1b2184b64c9ed0422 /lisp/jit-lock.el
parentfe8c228896eea54c41606df47b0141795d2f3655 (diff)
downloademacs-ec33b82235bbf920745be325538b91d209844d6f.tar.gz
(with-buffer-unmodified): Fix bug introduced by `)'
at the wrong place.
Diffstat (limited to 'lisp/jit-lock.el')
-rw-r--r--lisp/jit-lock.el4
1 files changed, 2 insertions, 2 deletions
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.