diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-12-07 04:58:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-12-07 04:58:36 +0000 |
| commit | 516eb29c738876d545c59d1c9b47a793ffd835cc (patch) | |
| tree | 4fe606cc13d004a4d66d0aac72bd97b31c458b17 /lisp | |
| parent | 33c886d07a397669cb2b1091ac110d625abbaf5d (diff) | |
| download | emacs-516eb29c738876d545c59d1c9b47a793ffd835cc.tar.gz emacs-516eb29c738876d545c59d1c9b47a793ffd835cc.tar.bz2 emacs-516eb29c738876d545c59d1c9b47a793ffd835cc.zip | |
(font-lock-unfontify-region): Save buffer state.
(font-lock-default-unfontify-region): Dont' save buffer state any more.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/font-lock.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index c17949c0c97..90d4aa0adeb 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -958,7 +958,8 @@ The value of this variable is used when Font Lock mode is turned on." (funcall font-lock-fontify-region-function beg end loudly)) (defun font-lock-unfontify-region (beg end) - (funcall font-lock-unfontify-region-function beg end)) + (save-buffer-state nil + (funcall font-lock-unfontify-region-function beg end))) (defun font-lock-default-fontify-buffer () (let ((verbose (if (numberp font-lock-verbose) @@ -1046,13 +1047,12 @@ This is used by `font-lock-default-unfontify-region' to decide what properties to clear before refontifying a region.") (defun font-lock-default-unfontify-region (beg end) - (save-buffer-state nil - (remove-list-of-text-properties - beg end (append - font-lock-extra-managed-props - (if font-lock-syntactic-keywords - '(syntax-table face font-lock-multiline) - '(face font-lock-multiline)))))) + (remove-list-of-text-properties + beg end (append + font-lock-extra-managed-props + (if font-lock-syntactic-keywords + '(syntax-table face font-lock-multiline) + '(face font-lock-multiline))))) ;; Called when any modification is made to buffer text. (defun font-lock-after-change-function (beg end old-len) |