(jit-lock-after-change): Check the font-lock-multiline

text-property after moving to the beginning of line and regardless
of the value of font-lock-multiline.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc5e9071802393d1a45a4b8d93476cc005740b12..b28f19da1c55786d2c1d626ca87450ee52da5704 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-17  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * jit-lock.el (jit-lock-after-change): Check the font-lock-multiline
+       text-property after moving to the beginning of line and regardless
+       of the value of font-lock-multiline.
+
 2001-05-17  Gerd Moellmann  <gerd@gnu.org>
 
        * startup.el (fancy-splash-screens): Ignore events on the mode-line.
@@ -27,8 +33,8 @@
        of `c'.
 
        * textmodes/outline.el (outline-font-lock-level): Remove the
-       condition-case, test what outline-level returns instead, to ease
-       debugging.
+       condition-case, test what outline-level returns instead, to
+       ease debugging.
 
        * international/mule.el (auto-coding-regexp-alist): New user-option.
        (auto-coding-from-file-contents): New function.
@@ -38,9 +44,9 @@
 
        * mouse.el (mouse-delete-other-windows): Doc fix.
 
-       * emacs-lisp/lisp-mode.el (lisp-mode): Make
-       font-lock-keywords-case-fold-search a buffer-local variable
-       with make-local-variable before setting it.
+       * emacs-lisp/lisp-mode.el (lisp-mode):
+       Make font-lock-keywords-case-fold-search a buffer-local variable with
+       make-local-variable before setting it.
 
 2001-05-14  Eli Zaretskii  <eliz@is.elta.co.il>
 

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 6b142997f5c9a362dd8b1f91884757e105c4d275..d406189f684303d618f0cdd73f7f5bde4e278c45 100644 (file)
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -426,14 +426,6 @@ will take place when text is fontified stealthily."
   (when jit-lock-mode
     (save-excursion
       (with-buffer-prepared-for-jit-lock
-       ;; If we're in text that matches a multi-line font-lock pattern,
-       ;; make sure the whole text will be redisplayed.
-       (when (and font-lock-multiline
-                 (get-text-property start 'font-lock-multiline))
-        (setq start (or (previous-single-property-change
-                         start 'font-lock-multiline)
-                        (point-min))))
-       
        ;; 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
@@ -441,6 +433,13 @@ will take place when text is fontified stealthily."
        (goto-char start)
        (setq start (line-beginning-position))
        
+       ;; If we're in text that matches a multi-line font-lock pattern,
+       ;; make sure the whole text will be redisplayed.
+       (when (get-text-property start 'font-lock-multiline)
+        (setq start (or (previous-single-property-change
+                         start 'font-lock-multiline)
+                        (point-min))))
+       
        ;; Make sure we change at least one char (in case of deletions).
        (setq end (min (max end (1+ start)) (point-max)))
        ;; Request refontification.