From b3502b922821fd100fb86b8cda6a0a62fba7d394 Mon Sep 17 00:00:00 2001 From: =?utf8?q?andr=C3=A9s=20ram=C3=ADrez?= Date: Mon, 13 Feb 2023 15:02:52 +0000 Subject: [PATCH] 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 --- lisp/emulation/viper-cmd.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) -- 2.39.2