From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 10 Nov 1995 18:56:58 +0000 (+0000)
Subject: (holiday-face, calendar-today-face, diary-face): Add
X-Git-Tag: emacs-19.34~2370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e252576667a8227bcdaca7e3a0f2a153580247c;p=emacs.git

(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 03b53c73948..ff095ea42b3 100644
--- 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"))