Mercurial > emacs
changeset 37431:bd1a8b1c88d7
(calendar-two-frame-setup, calendar-only-one-frame-setup)
(calendar-one-frame-setup): Use display-multi-frame-p instead of window-system.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 23 Apr 2001 14:20:55 +0000 |
| parents | a0e805e3a7f1 |
| children | db1fc2ae7eac |
| files | lisp/calendar/cal-x.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-x.el Mon Apr 23 14:19:57 2001 +0000 +++ b/lisp/calendar/cal-x.el Mon Apr 23 14:20:55 2001 +0000 @@ -70,7 +70,7 @@ (defun calendar-one-frame-setup (&optional arg) "Start calendar and display it in a dedicated frame together with the diary." - (if (not window-system) + (if (not (display-multi-frame-p)) (calendar-basic-setup arg) (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) (if (frame-live-p diary-frame) (delete-frame diary-frame)) @@ -98,7 +98,7 @@ (defun calendar-only-one-frame-setup (&optional arg) "Start calendar and display it in a dedicated frame." - (if (not window-system) + (if (not (display-multi-frame-p)) (calendar-basic-setup arg) (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) (let ((special-display-buffer-names nil) @@ -117,7 +117,7 @@ (defun calendar-two-frame-setup (&optional arg) "Start calendar and diary in separate, dedicated frames." - (if (not window-system) + (if (not (display-multi-frame-p)) (calendar-basic-setup arg) (if (frame-live-p calendar-frame) (delete-frame calendar-frame)) (if (frame-live-p diary-frame) (delete-frame diary-frame))