# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1216953271 0
# Node ID c80df631ecf5437e86062a9c2d18c5b8ccc52351
# Parent  2d3110c3f3dd97e2ee7f0ba30dd399add8954c97
New function diff-show-trailing-blanks in diff-mode.el.

diff -r 2d3110c3f3dd -r c80df631ecf5 lisp/ChangeLog
--- 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.
diff -r 2d3110c3f3dd -r c80df631ecf5 lisp/diff-mode.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)