summaryrefslogtreecommitdiff
path: root/lisp/emulation/viper-cmd.el
diff options
context:
space:
mode:
authorandrés ramírez <rrandresf@hotmail.com>2023-02-13 15:02:52 +0000
committerEli Zaretskii <eliz@gnu.org>2023-02-18 18:58:47 +0200
commitb3502b922821fd100fb86b8cda6a0a62fba7d394 (patch)
tree40b4f06d42557c863d0161da9e4d882aaab7a859 /lisp/emulation/viper-cmd.el
parent97f24924df62303c944176510038f398370f8fb6 (diff)
downloademacs-b3502b922821fd100fb86b8cda6a0a62fba7d394.tar.gz
Allow disabling viper faces in the minibuffer
* lisp/emulation/viper-cmd.el (viper-enable-minibuffer-faces): New defcustom. (viper-set-mode-vars-for): Use it to decide whether to use distinct faces in the minibuffer. (Bug#61432) Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/emulation/viper-cmd.el')
-rw-r--r--lisp/emulation/viper-cmd.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 0eb58565b37..8cf81c33b5b 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -466,6 +466,12 @@
;; Viper mode-changing commands and utilities
+(defcustom viper-enable-minibuffer-faces t
+ "If non-nil, viper uses distinct faces in the minibuffer."
+ :type 'boolean
+ :version "30.1"
+ :group 'viper-misc)
+
;; Modifies mode-line-buffer-identification.
(defun viper-refresh-mode-line ()
(setq-local viper-mode-string
@@ -561,7 +567,7 @@
))
;; minibuffer faces
- (if (viper-has-face-support-p)
+ (if (and (viper-has-face-support-p) viper-enable-minibuffer-faces)
(setq viper-minibuffer-current-face
(cond ((eq state 'emacs-state) viper-minibuffer-emacs-face)
((eq state 'vi-state) viper-minibuffer-vi-face)