[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2c980815f5 1/2: Add new user option 'diff-whitespace-style'
From: |
Lars Ingebrigtsen |
Subject: |
master 2c980815f5 1/2: Add new user option 'diff-whitespace-style' |
Date: |
Sun, 24 Jul 2022 05:07:03 -0400 (EDT) |
branch: master
commit 2c980815f5c88c14cf7567aa12eb23fc1d41d5d1
Author: YugaEgo <yet@ego.team>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Add new user option 'diff-whitespace-style'
* lisp/vc/diff-mode.el (diff-whitespace-style): New user option.
(diff-setup-whitespace): Use it (Bug#56679).
(top level): require 'whitespace.
(whitespace-style, whitespace-trailing-regexp): Remove defvars.
---
etc/NEWS | 7 +++++++
lisp/vc/diff-mode.el | 11 +++++++----
2 files changed, 14 insertions(+), 4 deletions(-)
diff --git a/etc/NEWS b/etc/NEWS
index 27046894ad..1d0e45fdcc 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1190,6 +1190,13 @@ the run/continue command.
This is bound to 'H' and toggles whether to hide or show the widget
contents.
+** Diff mode
+
+---
+*** New user option 'diff-whitespace-style'.
+This option determines buffer-local 'whitespace-style' value.
+
+
** Ispell
---
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index 30ba4153a9..8d9caf35a3 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -56,6 +56,7 @@
(eval-when-compile (require 'cl-lib))
(eval-when-compile (require 'subr-x))
(require 'easy-mmode)
+(require 'whitespace)
(autoload 'vc-find-revision "vc")
(autoload 'vc-find-revision-no-save "vc")
@@ -147,6 +148,11 @@ and hunk-based syntax highlighting otherwise as a
fallback."
(const :tag "Highlight syntax" t)
(const :tag "Allow hunk-based fallback" hunk-also)))
+(defcustom diff-whitespace-style '(face trailing)
+ "Specify `whitespace-style' variable for the current Diff mode buffer."
+ :type (get 'whitespace-style 'custom-type)
+ :version "29.1")
+
(defvar diff-vc-backend nil
"The VC backend that created the current Diff buffer, if any.")
@@ -1476,9 +1482,6 @@ See `after-change-functions' for the meaning of BEG, END
and LEN."
;; Added when diff--font-lock-prettify is non-nil!
(cl-pushnew 'display font-lock-extra-managed-props)))
-(defvar whitespace-style)
-(defvar whitespace-trailing-regexp)
-
(defvar-local diff-mode-read-only nil
"Non-nil when read-only diff buffer uses short keys.")
@@ -1572,7 +1575,7 @@ a diff with \\[diff-reverse-direction].
This sets `whitespace-style' and `whitespace-trailing-regexp' so
that Whitespace mode shows trailing whitespace problems on the
modified lines of the diff."
- (setq-local whitespace-style '(face trailing))
+ (setq-local whitespace-style diff-whitespace-style)
(let ((style (save-excursion
(goto-char (point-min))
;; FIXME: For buffers filled from async processes, this search