# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 973222168 0
# Node ID 8006eaf2db42ed63eff191b2b2be390fe5c8365d
# Parent  1e1abe8ec96a0fbcef6ea8d474f93ec4b8ce790c
(diary-face, calendar-today-face, holiday-face):
  Remove dependency on `window-system'.

diff -r 1e1abe8ec96a -r 8006eaf2db42 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Thu Nov 02 18:50:21 2000 +0000
+++ b/lisp/calendar/calendar.el	Fri Nov 03 03:29:28 2000 +0000
@@ -204,34 +204,33 @@
   :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)