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 |