From 2d30d788ae65c10a4baeef2a3502d8f54448dbeb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Aug 1997 02:23:32 +0000 Subject: [PATCH] (viper-replace-overlay-pixmap) (viper-search-face-pixmap): Variables deleted. (viper-replace-overlay-face, viper-search-face): Use "gray3" explicitly. --- lisp/emulation/viper-init.el | 13 ++----------- 1 file 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." ;;; Face-saving tricks -(defcustom viper-replace-overlay-pixmap "gray3" - "Pixmap to use for search face on non-color displays." - :type 'string - :group 'viper) -(defcustom viper-search-face-pixmap "gray3" - "Pixmap to use for search face on non-color displays." - :type 'string - :group 'viper) - (defun viper-hide-face (face) (if (and (viper-has-face-support-p) viper-emacs-p) (add-to-list 'facemenu-unlisted-faces face))) @@ -729,7 +720,7 @@ Related buffers can be cycled through via :R and :P commands." (defface viper-search-face '((((class color)) (:foreground "Black" :background "khaki")) - (t (:underline t :stipple viper-search-face-pixmap))) + (t (:underline t :stipple "gray3"))) "*Face used to flash out the search pattern." :group 'viper-highlighting) ;; An internal variable. Viper takes the face from here. @@ -755,7 +746,7 @@ Related buffers can be cycled through via :R and :P commands." (defface viper-replace-overlay-face '((((class color)) (:foreground "Black" :background "darkseagreen2")) - (t (:underline t :stipple viper-replace-overlay-face-pixmap))) + (t (:underline t :stipple "gray3"))) "*Face for highlighting replace regions on a window display." :group 'viper-highlighting) ;; An internal variable. Viper takes the face from here. -- 2.39.2