mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-01 02:31:23 -07:00
Code Issues Projects Releases Wiki Activity

(diary-face, calendar-today-face, holiday-face):

Browse source 
Remove dependency on `window-system'.
This commit is contained in:
Miles Bader 2000-11-03 03:30:49 +00:00
parent 9b91110736
commit 9c887adacf
2 changed files with 30 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2000-11-02 Miles Bader <miles@gnu.org>
* calendar/calendar.el (diary-face, calendar-today-face)
(holiday-face): Remove dependency on `window-system'.
2000-11-02 Ken Raeburn <raeburn@gnu.org>
* Makefile.in (emacs): Set EMACSLOADPATH always.

51
lisp/calendar/calendar.el
View file

@ -204,34 +204,33 @@ If nil, make an icon of the frame. If non-nil, delete the frame."
:type 'boolean
:group 'view)
(when window-system
(add-to-list 'facemenu-unlisted-faces 'diary-face)
(defface diary-face
'((((class color) (background light))
:foreground "red")
(((class color) (background dark))
:foreground "yellow")
(t
:bold t))
"Face for highlighting diary entries."
:group 'diary)
(add-to-list 'facemenu-unlisted-faces 'diary-face)
(defface diary-face
'((((class color) (background light))
:foreground "red")
(((class color) (background dark))
:foreground "yellow")
(t
:bold t))
"Face for highlighting diary entries."
:group 'diary)
(add-to-list 'facemenu-unlisted-faces 'calendar-today-face)
(defface calendar-today-face
'((t (:underline t)))
"Face for indicating today's date."
:group 'diary)
(add-to-list 'facemenu-unlisted-faces 'calendar-today-face)
(defface calendar-today-face
'((t (:underline t)))
"Face for indicating today's date."
:group 'diary)
(add-to-list 'facemenu-unlisted-faces 'holiday-face)
(defface holiday-face
'((((class color) (background light))
:background "pink")
(((class color) (background dark))
:background "chocolate4")
(t
:inverse-video t))
"Face for indicating dates that have holidays."
:group 'diary))
(add-to-list 'facemenu-unlisted-faces 'holiday-face)
(defface holiday-face
'((((class color) (background light))
:background "pink")
(((class color) (background dark))
:background "chocolate4")
(t
:inverse-video t))
"Face for indicating dates that have holidays."
:group 'diary)
(defcustom diary-entry-marker
(if (not window-system)