From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 9 Aug 1997 02:23:32 +0000 (+0000)
Subject: (viper-replace-overlay-pixmap)
X-Git-Tag: emacs-20.1~713
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d30d788ae65c10a4baeef2a3502d8f54448dbeb;p=emacs.git

(viper-replace-overlay-pixmap)
(viper-search-face-pixmap): Variables deleted.
(viper-replace-overlay-face, viper-search-face): Use "gray3" explicitly.
---

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.