mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(font-lock-extend-region-wholelines):

Browse Source 
Only return non-nil if the region has really been changed.
Reported by David Hansen <david.hansen@physik.fu-berlin.de>
This commit is contained in:
Stefan Monnier 2007-02-15 16:36:58 +00:00
parent 8bec6ac5df
commit a360974315
2 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2007-02-15 Stefan Monnier <monnier@iro.umontreal.ca>
* font-lock.el (font-lock-extend-region-wholelines):
Only return non-nil if the region has really been changed.
Reported by David Hansen <david.hansen@physik.fu-berlin.de>
2007-02-15 Juanma Barranquero <lekktu@gmail.com>
* play/5x5.el (5x5-crack-xor-mutate): Doc fix.
@ -56,8 +62,8 @@
2007-02-12 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-get-ls-command, tramp-get-file-exists-command)
(tramp-get-remote-ln): Handle error case. Reported by Chris Moore
<dooglus@gmail.com>.
(tramp-get-remote-ln): Handle error case.
Reported by Chris Moore <dooglus@gmail.com>.
2007-02-11 Kim F. Storm <storm@cua.dk>
@ -101,8 +107,8 @@
2007-02-10 Eli Zaretskii <eliz@gnu.org>
* info-look.el (info-lookup-make-completions): Bind
Info-fontify-maximum-menu-size to nil to speed up lookup of
* info-look.el (info-lookup-make-completions):
Bind Info-fontify-maximum-menu-size to nil to speed up lookup of
index nodes.
* info.el (Info-fontify-maximum-menu-size): Document the effect

5
lisp/font-lock.el
View File

@ -1090,7 +1090,10 @@ Put first the functions more likely to cause a change and cheaper to compute.")
(goto-char font-lock-beg)
(unless (bolp) (setq changed t font-lock-beg (line-beginning-position)))
(goto-char font-lock-end)
(unless (bolp) (setq changed t font-lock-end (line-beginning-position 2)))
(unless (bolp)
(unless (eq font-lock-end
(setq font-lock-end (line-beginning-position 2)))
(setq changed t)))
changed))
(defun font-lock-default-fontify-region (beg end loudly)