diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/appt.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index d9e4fd0e328..62296bb9a57 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -391,12 +391,14 @@ The following variables control appointment notification: (this-window (selected-window)) (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name)))) - (appt-select-lowest-window) (if (cdr (assq 'unsplittable (frame-parameters))) ;; In an unsplittable frame, use something somewhere else. (display-buffer appt-disp-buf) - ;; Otherwise, split the bottom window and use the lower part. - (split-window) + (unless (or (special-display-p (buffer-name appt-disp-buf)) + (same-window-p (buffer-name appt-disp-buf))) + ;; By default, split the bottom window and use the lower part. + (appt-select-lowest-window) + (split-window)) (pop-to-buffer appt-disp-buf)) (setq mode-line-format (concat "-------------------- Appointment in " |