From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 15 Feb 2007 16:36:58 +0000 (+0000)
Subject: (font-lock-extend-region-wholelines):
X-Git-Tag: emacs-pretest-22.0.94~159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3609743156ca71f1e33aeafb1c803ec7a5176c0;p=emacs.git

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