aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/font-lock.el8
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5595103bbb..35326df71f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12001-01-19 Gerd Moellmann <gerd@gnu.org> 12001-01-19 Gerd Moellmann <gerd@gnu.org>
2 2
3 * font-lock.el (font-lock-default-fontify-region): Fix last
4 change.
5
3 * font-lock.el (font-lock-multiline): Default to nil. 6 * font-lock.el (font-lock-multiline): Default to nil.
4 (font-lock-default-fontify-region): If font-lock-multiline is 7 (font-lock-default-fontify-region): If font-lock-multiline is
5 nil, don't check the property `font-lock-multiline'. 8 nil, don't check the property `font-lock-multiline'.
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 5316b110995..188b5de7fe8 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1212,10 +1212,10 @@ The value of this variable is used when Font Lock mode is turned on."
1212 (point-min))) 1212 (point-min)))
1213 (goto-char beg) 1213 (goto-char beg)
1214 (setq beg (line-beginning-position))) 1214 (setq beg (line-beginning-position)))
1215 (setq end (or (and font-lock-multiline 1215 (when font-lock-multiline
1216 (text-property-any end (point-max) 1216 (setq end (or (text-property-any end (point-max)
1217 'font-lock-multiline nil)) 1217 'font-lock-multiline nil)
1218 (point-max))) 1218 (point-max))))
1219 (goto-char end) 1219 (goto-char end)
1220 (setq end (line-beginning-position 2)) 1220 (setq end (line-beginning-position 2))
1221 ;; Now do the fontification. 1221 ;; Now do the fontification.