# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 816029862 0
# Node ID 15e0a3e62ef4b0afaf3309cab4b7f40b49aa006c
# Parent  4f1d9038eb4e8a63589f8df63476f049ade09f84
Don't list any faces in menu.

diff -r 4f1d9038eb4e -r 15e0a3e62ef4 lisp/emulation/viper.el
--- a/lisp/emulation/viper.el	Fri Nov 10 18:56:58 1995 +0000
+++ b/lisp/emulation/viper.el	Fri Nov 10 18:57:42 1995 +0000
@@ -469,6 +469,7 @@
 
 (if (vip-window-display-p)
     (progn
+      (add-to-list 'facemenu-unlisted-faces 'vip-replace-overlay-face)
       (make-face 'vip-replace-overlay-face)
       (or (face-differs-from-default-p 'vip-replace-overlay-face)
 	  (progn
@@ -2388,6 +2389,7 @@
       ()
     (defvar vip-search-face
       (progn
+	(add-to-list 'facemenu-unlisted-faces 'vip-search-face)
 	(make-face 'vip-search-face)
 	(or (face-differs-from-default-p 'vip-search-face)
 	    ;; face wasn't set in .vip or .Xdefaults
@@ -2407,6 +2409,7 @@
       ()
     (defvar vip-minibuffer-emacs-face
       (progn
+	(add-to-list 'facemenu-unlisted-faces 'vip-minibuffer-emacs-face)
 	(make-face 'vip-minibuffer-emacs-face)
 	(or (face-differs-from-default-p 'vip-minibuffer-emacs-face)
 	    ;; face wasn't set in .vip or .Xdefaults
@@ -2432,6 +2435,7 @@
     
     (defvar vip-minibuffer-insert-face
       (progn
+	(add-to-list 'facemenu-unlisted-faces 'vip-minibuffer-insert-face)
 	(make-face 'vip-minibuffer-insert-face)
 	(or (face-differs-from-default-p 'vip-minibuffer-insert-face)
 	    (if vip-vi-style-in-minibuffer
@@ -2455,6 +2459,7 @@
     
     (defvar vip-minibuffer-vi-face
       (progn
+	(add-to-list 'facemenu-unlisted-faces 'vip-minibuffer-vi-face)
 	(make-face 'vip-minibuffer-vi-face)
 	(or (face-differs-from-default-p 'vip-minibuffer-vi-face)
 	    (if vip-vi-style-in-minibuffer