# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 816029818 0
# Node ID 4f1d9038eb4e8a63589f8df63476f049ade09f84
# Parent  ddf90bfd374410721db213bc4309e2fa618991f7
(holiday-face, calendar-today-face, diary-face): Add
faces to facemenu-unlisted-faces before creating so that facemenu
won't list them as faces to be added interactively.

diff -r ddf90bfd3744 -r 4f1d9038eb4e lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Fri Nov 10 18:55:48 1995 +0000
+++ b/lisp/calendar/calendar.el	Fri Nov 10 18:56:58 1995 +0000
@@ -139,6 +139,7 @@
   (if (not window-system)
       "+"
     (require 'faces)
+    (add-to-list 'facemenu-unlisted-faces 'diary-face)
     (make-face 'diary-face)
     (cond ((face-differs-from-default-p 'diary-face))
           ((x-display-color-p) (set-face-foreground 'diary-face "red"))
@@ -151,6 +152,7 @@
   (if (not window-system)
       "="
     (require 'faces)
+    (add-to-list 'facemenu-unlisted-faces 'calendar-today-face)
     (make-face 'calendar-today-face)
     (if (not (face-differs-from-default-p 'calendar-today-face))
         (set-face-underline-p 'calendar-today-face t))
@@ -162,6 +164,7 @@
   (if (not window-system)
       "*"
     (require 'faces)
+    (add-to-list 'facemenu-unlisted-faces 'holiday-face)
     (make-face 'holiday-face)
     (cond ((face-differs-from-default-p 'holiday-face))
           ((x-display-color-p) (set-face-background 'holiday-face "pink"))