aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emulation/viper-init.el13
1 files changed, 2 insertions, 11 deletions
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el
index 47360ed4706..30d12695223 100644
--- a/lisp/emulation/viper-init.el
+++ b/lisp/emulation/viper-init.el
@@ -692,15 +692,6 @@ Related buffers can be cycled through via :R and :P commands."
692 692
693;;; Face-saving tricks 693;;; Face-saving tricks
694 694
695(defcustom viper-replace-overlay-pixmap "gray3"
696 "Pixmap to use for search face on non-color displays."
697 :type 'string
698 :group 'viper)
699(defcustom viper-search-face-pixmap "gray3"
700 "Pixmap to use for search face on non-color displays."
701 :type 'string
702 :group 'viper)
703
704(defun viper-hide-face (face) 695(defun viper-hide-face (face)
705 (if (and (viper-has-face-support-p) viper-emacs-p) 696 (if (and (viper-has-face-support-p) viper-emacs-p)
706 (add-to-list 'facemenu-unlisted-faces face))) 697 (add-to-list 'facemenu-unlisted-faces face)))
@@ -729,7 +720,7 @@ Related buffers can be cycled through via :R and :P commands."
729 720
730(defface viper-search-face 721(defface viper-search-face
731 '((((class color)) (:foreground "Black" :background "khaki")) 722 '((((class color)) (:foreground "Black" :background "khaki"))
732 (t (:underline t :stipple viper-search-face-pixmap))) 723 (t (:underline t :stipple "gray3")))
733 "*Face used to flash out the search pattern." 724 "*Face used to flash out the search pattern."
734 :group 'viper-highlighting) 725 :group 'viper-highlighting)
735;; An internal variable. Viper takes the face from here. 726;; An internal variable. Viper takes the face from here.
@@ -755,7 +746,7 @@ Related buffers can be cycled through via :R and :P commands."
755 746
756(defface viper-replace-overlay-face 747(defface viper-replace-overlay-face
757 '((((class color)) (:foreground "Black" :background "darkseagreen2")) 748 '((((class color)) (:foreground "Black" :background "darkseagreen2"))
758 (t (:underline t :stipple viper-replace-overlay-face-pixmap))) 749 (t (:underline t :stipple "gray3")))
759 "*Face for highlighting replace regions on a window display." 750 "*Face for highlighting replace regions on a window display."
760 :group 'viper-highlighting) 751 :group 'viper-highlighting)
761;; An internal variable. Viper takes the face from here. 752;; An internal variable. Viper takes the face from here.