diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-06-27 21:23:39 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-06-27 21:23:39 +0000 |
| commit | b16a8185dabafac6cf440f4938b47e475079c0e5 (patch) | |
| tree | 0ee96500d430a0fab3c29ffda4ce3a5dbbf49911 /lisp/calendar | |
| parent | 2c6b099b5e9e1682292023e59b86e8cc1b698667 (diff) | |
| download | emacs-b16a8185dabafac6cf440f4938b47e475079c0e5.tar.gz | |
(calendar): Call calendar-only-one-frame-setup if requested.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/calendar.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index bc4aca2dbec..0ed6d844a6d 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1326,8 +1326,9 @@ The Gregorian date Sunday, December 31, 1 BC is imaginary." (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 @@ The original function `calendar' has been renamed `calendar-basic-setup'." (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) |