Mercurial > emacs
changeset 75918:f707dcebb152
(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>
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 15 Feb 2007 16:36:58 +0000 |
| parents | 412a73a85993 |
| children | af4d0090c583 |
| files | lisp/ChangeLog lisp/font-lock.el |
| diffstat | 2 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Feb 15 11:01:16 2007 +0000 +++ b/lisp/ChangeLog Thu Feb 15 16:36:58 2007 +0000 @@ -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
--- a/lisp/font-lock.el Thu Feb 15 11:01:16 2007 +0000 +++ b/lisp/font-lock.el Thu Feb 15 16:36:58 2007 +0000 @@ -1090,7 +1090,10 @@ (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)