Mercurial > emacs
changeset 24891:85d8302a2e82
(calendar): Call calendar-only-one-frame-setup if requested.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 27 Jun 1999 21:23:39 +0000 |
| parents | 5f37b93c8538 |
| children | 576028540ef4 |
| files | lisp/calendar/calendar.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Sun Jun 27 21:23:26 1999 +0000 +++ b/lisp/calendar/calendar.el Sun Jun 27 21:23:39 1999 +0000 @@ -1326,8 +1326,9 @@ (defvar calendar-setup nil "The frame set up of the calendar. The choices are `one-frame' (calendar and diary together in one separate, -dedicated frame) or `two-frames' (calendar and diary in separate, dedicated -frames); with any other value the current frame is used.") +dedicated frame), `two-frames' (calendar and diary in separate, dedicated +frames), `calendar-only' (calendar in a separate, dedicated frame); with +any other value the current frame is used.") ;;;###autoload (defun calendar (&optional arg) @@ -1336,6 +1337,8 @@ (interactive "P") (cond ((equal calendar-setup 'one-frame) (calendar-one-frame-setup arg)) ((equal calendar-setup 'two-frames) (calendar-two-frame-setup arg)) + ((equal calendar-setup 'calendar-only) + (calendar-only-one-frame-setup arg)) (t (calendar-basic-setup arg)))) (defun calendar-basic-setup (&optional arg)