# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1171557418 0
# Node ID f707dcebb152372fb6caa2ca81ba568360c88bf6
# Parent  412a73a8599363bba4679cd60210177a4d11e2b3
(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 -r 412a73a85993 -r f707dcebb152 lisp/ChangeLog
--- 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
diff -r 412a73a85993 -r f707dcebb152 lisp/font-lock.el
--- 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)