# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871093412 0
# Node ID 55924d8a5b9ee1b0c5cc789a84c083d14a093113
# Parent  520a7d40d75c5bdb213c59bfedca2f48bff360b0
(viper-replace-overlay-pixmap)
(viper-search-face-pixmap): Variables deleted.
(viper-replace-overlay-face, viper-search-face): Use "gray3" explicitly.

diff -r 520a7d40d75c -r 55924d8a5b9e lisp/emulation/viper-init.el
--- a/lisp/emulation/viper-init.el	Sat Aug 09 02:11:29 1997 +0000
+++ b/lisp/emulation/viper-init.el	Sat Aug 09 02:23:32 1997 +0000
@@ -692,15 +692,6 @@
 
 ;;; 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 @@
 
 (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 @@
 
 (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.