Mercurial > emacs

changeset 38845:41dec4b7b2ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 16 Aug 2001 14:25:15 +0000
parents 3f8ed591cfda
children a0e762f22e7c
files lisp/lazy-lock.el
diffstat 1 files changed, 26 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/lazy-lock.el	Thu Aug 16 13:18:10 2001 +0000
+++ b/lisp/lazy-lock.el	Thu Aug 16 14:25:15 2001 +0000
@@ -883,30 +883,32 @@
 ;; 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.