(font-lock-default-fontify-region): Check the multiline

property independently from the font-lock-multiline variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 219fbe0213a259ed28dee0b558987246fda238a5..2a83266af32ac8cac6f09b5256461d830261a173 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * font-lock.el (font-lock-default-fontify-region): Check the multiline
+       property independently from the font-lock-multiline variable.
+
 2005-10-21  Richard M. Stallman  <rms@gnu.org>
 
        * emacs-lisp/find-func.el (find-library-name): Doc fix.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 77e20d5d026d75b514f8cb813d1f59258fdf4c8d..ed8e7143b25e3e43180baa863f997112b362289b 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1048,8 +1048,7 @@ a very meaningful entity to highlight.")
           (setq beg (line-beginning-position (- 1 font-lock-lines-before)))
          ;; check to see if we should expand the beg/end area for
          ;; proper multiline matches
-         (when (and font-lock-multiline
-                    (> beg (point-min))
+         (when (and (> beg (point-min))
                     (get-text-property (1- beg) 'font-lock-multiline))
            ;; We are just after or in a multiline match.
            (setq beg (or (previous-single-property-change
@@ -1057,10 +1056,9 @@ a very meaningful entity to highlight.")
                          (point-min)))
            (goto-char beg)
            (setq beg (line-beginning-position)))
-         (when font-lock-multiline
-           (setq end (or (text-property-any end (point-max)
-                                            'font-lock-multiline nil)
-                         (point-max))))
+          (setq end (or (text-property-any end (point-max)
+                                           'font-lock-multiline nil)
+                        (point-max)))
          (goto-char end)
          ;; Round up to a whole line.
           (unless (bolp) (setq end (line-beginning-position 2)))