X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/7381be9dcb83efae4f0645d49a55cc38f13cb9c8..8677dea3af74e8253bb85a00beb9dd4975946d63:/lisp/diff-mode.el

diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el
index da1cd30198..d61f7689ae 100644
--- a/lisp/diff-mode.el
+++ b/lisp/diff-mode.el
@@ -219,7 +219,7 @@ when editing big diffs)."
   "Automatically highlight changes in detail as the user visits hunks.
 When transitioning from disabled to enabled,
 try to refine the current hunk, as well."
-  :group 'diff-mode :init-value t :lighter " Auto-Refine"
+  :group 'diff-mode :init-value t :lighter nil ;; " Auto-Refine"
   (when diff-auto-refine-mode
     (condition-case-no-debug nil (diff-refine-hunk) (error nil))))
 
@@ -1881,6 +1881,13 @@ I.e. like `add-change-log-entry-other-window' but applied to all hunks."
         ;; When there's no more hunks, diff-hunk-next signals an error.
 	(error nil)))))
 
+(defun diff-show-trailing-whitespaces ()
+  "Show trailing whitespaces 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)