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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84f07b52b83da62470466a190c87297f52a083e6..9ffb729822deb2b4eb1e9a8b1043dc876ee39660 100644 (file)
--- 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 69ba694340ba1d7e18deec8c43390cfb3134be38..62008ac295b8e3d3d6794dbbb2b5645ce233989c 100644 (file)
--- 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)