mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

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

Browse Source 
text-property after moving to the beginning of line and regardless
of the value of font-lock-multiline.
This commit is contained in:
Stefan Monnier 2001-05-17 13:29:44 +00:00
parent 357da0ed2f
commit df22166e16
2 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ChangeLog
View File

@ -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>

15
lisp/jit-lock.el
View File

@ -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.