Mercurial > emacs
changeset 13490:4f1d9038eb4e
(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.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 18:56:58 +0000 |
| parents | ddf90bfd3744 |
| children | 15e0a3e62ef4 |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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"))