procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lazy-lock-fontify-region): Widen the current

Browse source 
buffer in a save-restriction.  Under one test case with Ediff,
window-scroll-functions are run with a window start that's
temporarily outside of the restriction.
This commit is contained in:
Gerd Moellmann 2001-08-16 14:27:07 +00:00
parent 0645d24148
commit e67d184322
2 changed files with 33 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2001-08-16 Gerd Moellmann <gerd@gnu.org>
* lazy-lock.el (lazy-lock-fontify-region): Widen the current
buffer in a save-restriction. Under one test case with Ediff,
window-scroll-functions are run with a window start that's
temporarily outside of the restriction.
2001-08-16 Andrew Innes <andrewi@gnu.org>
* makefile.nt (DONTCOMPILE): Omit bindings.el.

50
lisp/lazy-lock.el
View file

@ -883,30 +883,32 @@ verbosity is controlled via the variable `lazy-lock-stealth-verbose'."
;; should use this function. For an example, see ps-print.el.
(defun lazy-lock-fontify-region (beg end)
;; Fontify between BEG and END, where necessary, in the current buffer.
(when (setq beg (text-property-any beg end 'lazy-lock nil))
(save-excursion
(save-match-data
(save-buffer-state
;; Ensure syntactic fontification is always correct.
(font-lock-beginning-of-syntax-function next)
;; Find successive unfontified regions between BEG and END.
(condition-case data
(do-while beg
(setq next (or (text-property-any beg end 'lazy-lock t) end))
;; Make sure the region end points are at beginning of line.
(goto-char beg)
(unless (bolp)
(beginning-of-line)
(setq beg (point)))
(goto-char next)
(unless (bolp)
(forward-line)
(setq next (point)))
;; Fontify the region, then flag it as fontified.
(font-lock-fontify-region beg next)
(add-text-properties beg next '(lazy-lock t))
(setq beg (text-property-any next end 'lazy-lock nil)))
((error quit) (message "Fontifying region...%s" data))))))))
(save-restriction
(widen)
(when (setq beg (text-property-any beg end 'lazy-lock nil))
(save-excursion
(save-match-data
(save-buffer-state
;; Ensure syntactic fontification is always correct.
(font-lock-beginning-of-syntax-function next)
;; Find successive unfontified regions between BEG and END.
(condition-case data
(do-while beg
(setq next (or (text-property-any beg end 'lazy-lock t) end))
;; Make sure the region end points are at beginning of line.
(goto-char beg)
(unless (bolp)
(beginning-of-line)
(setq beg (point)))
(goto-char next)
(unless (bolp)
(forward-line)
(setq next (point)))
;; Fontify the region, then flag it as fontified.
(font-lock-fontify-region beg next)
(add-text-properties beg next '(lazy-lock t))
(setq beg (text-property-any next end 'lazy-lock nil)))
((error quit) (message "Fontifying region...%s" data)))))))))
(defun lazy-lock-fontify-chunk ()
;; Fontify the nearest chunk, for stealth, in the current buffer.