Don't list any faces in menu.

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 403bd25644be3c1d86c1c834f6fb1ee7dc15309c..5e860ffd311ad0fbca80143e6f49526e8c2bd9f2 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -469,6 +469,7 @@ it better fits your working style.")
 
 (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 @@ Undo previous insertion and inserts new."
       ()
     (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 @@ Undo previous insertion and inserts new."
       ()
     (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 @@ Undo previous insertion and inserts new."
     
     (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 @@ Undo previous insertion and inserts new."
     
     (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