diff options
author | andrés ramírez <rrandresf@hotmail.com> | 2023-02-13 15:02:52 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-02-18 18:58:47 +0200 |
commit | b3502b922821fd100fb86b8cda6a0a62fba7d394 (patch) | |
tree | 40b4f06d42557c863d0161da9e4d882aaab7a859 /lisp/emulation/viper-cmd.el | |
parent | 97f24924df62303c944176510038f398370f8fb6 (diff) | |
download | emacs-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.el | 8 |
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) |