changeset 29827:dd9436a06050

(jit-lock-after-change): Don't assume point is at START.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 20 Jun 2000 23:59:05 +0000
parents 05c0499d035a
children cb30c41d1bb4
files lisp/jit-lock.el
diffstat 1 files changed, 16 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/jit-lock.el	Tue Jun 20 23:58:18 2000 +0000
+++ b/lisp/jit-lock.el	Tue Jun 20 23:59:05 2000 +0000
@@ -439,20 +439,22 @@
 in case the syntax of those lines has changed.  Refontification
 will take place when text is fontified stealthily."
   (when jit-lock-mode
-    ;; It's important that the `fontified' property be set from the
-    ;; beginning of the line, else font-lock will properly change the
-    ;; text's face, but the display will have been done already and will
-    ;; be inconsistent with the buffer's content.
-    (setq start (line-beginning-position))
-    ;; Make sure we change at least one char (in case of deletions).
-    (setq end (min (max end (1+ start)) (point-max)))
-    ;; Request refontification.
-    (with-buffer-prepared-for-jit-lock
-     (put-text-property start end 'fontified nil))
-    ;; Mark the change for deferred contextual refontification.
-    (when jit-lock-first-unfontify-pos
-      (setq jit-lock-first-unfontify-pos
-	    (min jit-lock-first-unfontify-pos start)))))
+    (save-excursion
+      (with-buffer-prepared-for-jit-lock
+       ;; It's important that the `fontified' property be set from the
+       ;; beginning of the line, else font-lock will properly change the
+       ;; text's face, but the display will have been done already and will
+       ;; be inconsistent with the buffer's content.
+       (goto-char start)
+       (setq start (line-beginning-position))
+       ;; Make sure we change at least one char (in case of deletions).
+       (setq end (min (max end (1+ start)) (point-max)))
+       ;; Request refontification.
+       (put-text-property start end 'fontified nil))
+      ;; Mark the change for deferred contextual refontification.
+      (when jit-lock-first-unfontify-pos
+	(setq jit-lock-first-unfontify-pos
+	      (min jit-lock-first-unfontify-pos start))))))
   
 (provide 'jit-lock)