changeset 13491:15e0a3e62ef4

Don't list any faces in menu.
author Karl Heuer <kwzh@gnu.org>
date Fri, 10 Nov 1995 18:57:42 +0000
parents 4f1d9038eb4e
children 24b73b514a8b
files lisp/emulation/viper.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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