:group 'diary)
(defcustom diary-entry-marker
- (if (not window-system)
+ (if (not (display-color-p))
"+"
'diary-face)
"*How to mark dates that have diary entries.
:group 'diary)
(defcustom calendar-today-marker
- (if (not window-system)
+ (if (not (display-color-p))
"="
'calendar-today-face)
"*How to mark today's date in the calendar.
:group 'calendar)
(defcustom calendar-holiday-marker
- (if (not window-system)
+ (if (not (display-color-p))
"*"
'holiday-face)
"*How to mark notable dates in the calendar.
(if calendar-mode-map
nil
(setq calendar-mode-map (make-sparse-keymap))
- (if window-system (require 'cal-menu))
+ (if (display-popup-menus-p) (require 'cal-menu))
(calendar-for-loop i from 0 to 9 do
(define-key calendar-mode-map (int-to-string i) 'digit-argument))
(let ((l (list 'narrow-to-region 'mark-word 'mark-sexp 'mark-paragraph
(setq buffer-read-only t)
(setq indent-tabs-mode nil)
(update-calendar-mode-line)
- (if window-system
+ (if (display-popup-menus-p)
(progn
(make-local-hook 'activate-menubar-hook)
(add-hook 'activate-menubar-hook 'cal-menu-update nil t)))
(let ((buffer (if (window-live-p window) (window-buffer window))))
(if (memq buffer (calendar-buffer-list))
(cond
- ((and window-system
+ ((and (display-multi-frame-p)
(eq 'icon (cdr (assoc 'visibility
(frame-parameters
(window-frame window))))))
nil)
- ((and window-system (window-dedicated-p window))
+ ((and (display-multi-frame-p) (window-dedicated-p window))
(if calendar-remove-frame-by-deleting
(delete-frame (window-frame window))
(iconify-frame (window-frame window))))