diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-02-15 16:36:58 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-02-15 16:36:58 +0000 |
| commit | 3cc22d88bfa6a4ff48ca752c71c4aca2de3ede06 (patch) | |
| tree | 55c027cd461d0e312bcb5c901716641c0c59da38 /lisp | |
| parent | 341bc2788674a410981c623b3d7137a7d9380815 (diff) | |
| download | emacs-3cc22d88bfa6a4ff48ca752c71c4aca2de3ede06.tar.gz | |
(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>
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 14 | ||||
| -rw-r--r-- | lisp/font-lock.el | 5 |
2 files changed, 14 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 49cf9cb61ae..decc4111058 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 69ba694340b..62008ac295b 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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) |