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

2 files changed, 14 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84f07b52b83..9ffb729822d 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)