Mercurial > emacs
comparison lisp/font-lock.el @ 44258:fc8fbdc5ca4c
(save-buffer-state): Fix last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 30 Mar 2002 08:08:54 +0000 |
| parents | 8c0a16af093a |
| children | fdd01fca9b1d |
comparison
equal
deleted
inserted
replaced
| 44257:b407e937cf1a | 44258:fc8fbdc5ca4c |
|---|---|
| 677 ;; We use this to preserve or protect things when modifying text properties. | 677 ;; We use this to preserve or protect things when modifying text properties. |
| 678 (defmacro save-buffer-state (varlist &rest body) | 678 (defmacro save-buffer-state (varlist &rest body) |
| 679 "Bind variables according to VARLIST and eval BODY restoring buffer state." | 679 "Bind variables according to VARLIST and eval BODY restoring buffer state." |
| 680 (let ((modified (make-symbol "modified"))) | 680 (let ((modified (make-symbol "modified"))) |
| 681 `(let* ,(append varlist | 681 `(let* ,(append varlist |
| 682 '((,modified (buffer-modified-p)) | 682 `((,modified (buffer-modified-p)) |
| 683 (buffer-undo-list t) | 683 (buffer-undo-list t) |
| 684 (inhibit-read-only t) | 684 (inhibit-read-only t) |
| 685 (inhibit-point-motion-hooks t) | 685 (inhibit-point-motion-hooks t) |
| 686 (inhibit-modification-hooks t) | 686 (inhibit-modification-hooks t) |
| 687 deactivate-mark | 687 deactivate-mark |