changeset 96999:c80df631ecf5

New function diff-show-trailing-blanks in diff-mode.el.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Fri, 25 Jul 2008 02:34:31 +0000
parents 2d3110c3f3dd
children 3903faf8b34b
files lisp/ChangeLog lisp/diff-mode.el
diffstat 2 files changed, 12 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jul 25 02:33:49 2008 +0000
+++ b/lisp/ChangeLog	Fri Jul 25 02:34:31 2008 +0000
@@ -1,3 +1,8 @@
+2008-07-24  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* diff-mode.el (diff-show-trailing-blanks): New fun.  Show trailing
+	blanks in modified lines for diff-mode.
+
 2008-07-24  Michael Albinus  <michael.albinus@gmx.de>
 
 	* Makefile.in (ELCFILES): Add net/xesam.el.
--- a/lisp/diff-mode.el	Fri Jul 25 02:33:49 2008 +0000
+++ b/lisp/diff-mode.el	Fri Jul 25 02:34:31 2008 +0000
@@ -1881,6 +1881,13 @@
         ;; When there's no more hunks, diff-hunk-next signals an error.
 	(error nil)))))
 
+(defun diff-show-trailing-blanks ()
+  "Show trailing blanks in modified lines for diff-mode."
+  (interactive)
+  (let ((whitespace-style '(trailing))
+        (whitespace-trailing-regexp "^[-\+!<>].*?\\([\t ]+\\)$"))
+    (whitespace-mode 1)))     ; display trailing blanks in diff buffer
+
 ;; provide the package
 (provide 'diff-mode)