From 1e252576667a8227bcdaca7e3a0f2a153580247c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 10 Nov 1995 18:56:58 +0000 Subject: [PATCH] (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. --- lisp/calendar/calendar.el | 3 +++ 1 file changed, 3 insertions(+) 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")) -- 2.39.2