Mercurial > emacs
comparison lisp/font-lock.el @ 36462:914a713af75b
(save-buffer-state): Use inhibit-modification-hooks
rather than (before|after)-change-functions.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 01 Mar 2001 17:48:57 +0000 |
| parents | a338df89047a |
| children | e7d998ab9275 |
comparison
equal
deleted
inserted
replaced
| 36461:a4fb0c9be609 | 36462:914a713af75b |
|---|---|
| 670 (defmacro save-buffer-state (varlist &rest body) | 670 (defmacro save-buffer-state (varlist &rest body) |
| 671 "Bind variables according to VARLIST and eval BODY restoring buffer state." | 671 "Bind variables according to VARLIST and eval BODY restoring buffer state." |
| 672 `(let* ,(append varlist | 672 `(let* ,(append varlist |
| 673 '((modified (buffer-modified-p)) (buffer-undo-list t) | 673 '((modified (buffer-modified-p)) (buffer-undo-list t) |
| 674 (inhibit-read-only t) (inhibit-point-motion-hooks t) | 674 (inhibit-read-only t) (inhibit-point-motion-hooks t) |
| 675 before-change-functions after-change-functions | 675 (inhibit-modification-hooks t) |
| 676 deactivate-mark buffer-file-name buffer-file-truename)) | 676 deactivate-mark buffer-file-name buffer-file-truename)) |
| 677 ,@body | 677 ,@body |
| 678 (when (and (not modified) (buffer-modified-p)) | 678 (when (and (not modified) (buffer-modified-p)) |
| 679 (set-buffer-modified-p nil)))) | 679 (set-buffer-modified-p nil)))) |
| 680 (put 'save-buffer-state 'lisp-indent-function 1) | 680 (put 'save-buffer-state 'lisp-indent-function 1) |