mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(viper-replace-overlay-pixmap)

Browse source 
(viper-search-face-pixmap): Variables deleted.
(viper-replace-overlay-face, viper-search-face): Use "gray3" explicitly.
This commit is contained in:
Richard M. Stallman 1997-08-09 02:23:32 +00:00
parent 23d93b6a88
commit 2d30d788ae
1 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emulation/viper-init.el
View file

@ -692,15 +692,6 @@ Related buffers can be cycled through via :R and :P commands."
;;; Face-saving tricks ;;; 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) (defun viper-hide-face (face)
(if (and (viper-has-face-support-p) viper-emacs-p) (if (and (viper-has-face-support-p) viper-emacs-p)
(add-to-list 'facemenu-unlisted-faces face))) (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 (defface viper-search-face
'((((class color)) (:foreground "Black" :background "khaki")) '((((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." "*Face used to flash out the search pattern."
:group 'viper-highlighting) :group 'viper-highlighting)
;; An internal variable. Viper takes the face from here. ;; 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 (defface viper-replace-overlay-face
'((((class color)) (:foreground "Black" :background "darkseagreen2")) '((((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." "*Face for highlighting replace regions on a window display."
:group 'viper-highlighting) :group 'viper-highlighting)
;; An internal variable. Viper takes the face from here. ;; An internal variable. Viper takes the face from here.