Mercurial > emacs

changeset 61492:875507693e78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
whitespace.el - revert hasty fix, fix highlight area for leading and trailing space.
author Rajesh Vaidheeswarran <rv@gnu.org>
date Mon, 11 Apr 2005 23:47:54 +0000
parents bdefd94091fa
children e8836605ad73
files lisp/ChangeLog lisp/whitespace.el
diffstat 2 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Apr 11 23:41:12 2005 +0000
+++ b/lisp/ChangeLog	Mon Apr 11 23:47:54 2005 +0000
@@ -9,6 +9,13 @@
 
 2005-04-11  Rajesh Vaidheeswarran  <rv@gnu.org>
 
+	* whitespace.el (whitespace-buffer-leading,
+	whitespace-buffer-trailing): Revert the incorrect test
+	inversion. However, fix the highlight area for the leading and
+	trailing whitespaces to show space.
+
+2005-04-11  Rajesh Vaidheeswarran  <rv@gnu.org>
+
 	* whitespace.el (whitespace-version): Bump to 3.5
 
 	(whitespace-buffer-leading, whitespace-buffer-trailing): Invert
--- a/lisp/whitespace.el	Mon Apr 11 23:41:12 2005 +0000
+++ b/lisp/whitespace.el	Mon Apr 11 23:47:54 2005 +0000
@@ -597,9 +597,9 @@
       (setq pmin (point))
       (end-of-line)
       (setq pmax (point))
-      (if (not (equal pmin pmax))
+      (if (equal pmin pmax)
 	  (progn
-	    (whitespace-highlight-the-space pmin pmax)
+	    (whitespace-highlight-the-space pmin (1+ pmax))
 	    t)
 	nil))))
 
@@ -635,9 +635,9 @@
 	    (setq pmin (point))
 	    (end-of-line)
 	    (setq pmax (point))
-	    (if (not (equal pmin pmax))
+	    (if (equal pmin pmax)
 		(progn
-		  (whitespace-highlight-the-space pmin pmax)
+		  (whitespace-highlight-the-space (- pmin 1) pmax)
 		  t)
 	      nil))
 	nil))))