Mercurial > emacs
comparison lisp/jit-lock.el @ 28533:e564d806233e
(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 |
comparison
equal
deleted
inserted
replaced
28532:1c30dbc6c0d6 | 28533:e564d806233e |
---|---|
36 (defmacro with-buffer-unmodified (&rest body) | 36 (defmacro with-buffer-unmodified (&rest body) |
37 "Eval BODY, preserving the current buffer's modified state." | 37 "Eval BODY, preserving the current buffer's modified state." |
38 (let ((modified (make-symbol "modified"))) | 38 (let ((modified (make-symbol "modified"))) |
39 `(let ((,modified (buffer-modified-p))) | 39 `(let ((,modified (buffer-modified-p))) |
40 ,@body | 40 ,@body |
41 (unless ,modified) | 41 (unless ,modified |
42 (restore-buffer-modified-p nil)))) | 42 (restore-buffer-modified-p nil))))) |
43 | 43 |
44 (defmacro with-buffer-prepared-for-font-lock (&rest body) | 44 (defmacro with-buffer-prepared-for-font-lock (&rest body) |
45 "Execute BODY in current buffer, overriding several variables. | 45 "Execute BODY in current buffer, overriding several variables. |
46 Preserves the `buffer-modified-p' state of the current buffer." | 46 Preserves the `buffer-modified-p' state of the current buffer." |
47 `(with-buffer-unmodified | 47 `(with-buffer-unmodified |