(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 --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 03b53c739481020668c2e52f8d45dc919e2ef687..ff095ea42b3e778c273d616e87cb90d119227889 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -139,6 +139,7 @@ The marking symbol is specified by the variable `diary-entry-marker'.")
   (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 @@ Can be either a single-character string or a face.")
   (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 @@ Can be either a single-character string or a face.")
   (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"))