diff options
author | Edward M. Reingold <[email protected]> | 1995-06-02 14:45:21 +0000 |
---|---|---|
committer | Edward M. Reingold <[email protected]> | 1995-06-02 14:45:21 +0000 |
commit | 0f12fdabce436da82c60d31ae63bc731bc54d6a8 (patch) | |
tree | 720df90387fbf0c34a4f72cdcb7c0d21fe7c7bf2 | |
parent | b7c49febb0464b7c633ef44797833adfb2e7a7a8 (diff) |
Fix cal-x.el to create an empty fancy-diary-buffer, if needed.
-rw-r--r-- | lisp/calendar/cal-x.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el index 61ccc32faa..d3e25e8306 100644 --- a/lisp/calendar/cal-x.el +++ b/lisp/calendar/cal-x.el @@ -103,11 +103,13 @@ Can be used to change frame parameters, such as font, color, location, etc.") (set-window-dedicated-p (selected-window) 'calendar) (set-window-dedicated-p (display-buffer - (if (memq 'fancy-diary-display diary-display-hook) - fancy-diary-buffer - (get-file-buffer diary-file))) + (if (not (memq 'fancy-diary-display diary-display-hook)) + (get-file-buffer diary-file) + (if (not (bufferp (get-buffer fancy-diary-buffer))) + (make-fancy-diary-buffer)) + fancy-diary-buffer)) 'diary)))))) - + (defun calendar-two-frame-setup (&optional arg) "Start calendar and diary in separate, dedicated frames." (if (not window-system) @@ -136,9 +138,11 @@ Can be used to change frame parameters, such as font, color, location, etc.") (save-excursion (diary)) (set-window-dedicated-p (display-buffer - (if (memq 'fancy-diary-display diary-display-hook) - fancy-diary-buffer - (get-file-buffer diary-file))) + (if (not (memq 'fancy-diary-display diary-display-hook)) + (get-file-buffer diary-file) + (if (not (bufferp (get-buffer fancy-diary-buffer))) + (make-fancy-diary-buffer)) + fancy-diary-buffer)) 'diary))))) (setq special-display-buffer-names |