Mercurial > emacs
comparison lisp/calendar/appt.el @ 99886:d5afbdd2b77c
(appt-disp-window): Do a set-buffer when the
frame can't be split.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Mon, 24 Nov 2008 19:53:00 +0000 |
| parents | 6638c3736a32 |
| children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
| 99885:7161bac8c5a8 | 99886:d5afbdd2b77c |
|---|---|
| 415 (when (minibufferp) | 415 (when (minibufferp) |
| 416 (other-window 1) | 416 (other-window 1) |
| 417 (and (minibufferp) (display-multi-frame-p) (other-frame 1))) | 417 (and (minibufferp) (display-multi-frame-p) (other-frame 1))) |
| 418 (if (cdr (assq 'unsplittable (frame-parameters))) | 418 (if (cdr (assq 'unsplittable (frame-parameters))) |
| 419 ;; In an unsplittable frame, use something somewhere else. | 419 ;; In an unsplittable frame, use something somewhere else. |
| 420 (display-buffer appt-disp-buf) | 420 (progn |
| 421 (set-buffer appt-disp-buf) | |
| 422 (display-buffer appt-disp-buf)) | |
| 421 (unless (or (special-display-p (buffer-name appt-disp-buf)) | 423 (unless (or (special-display-p (buffer-name appt-disp-buf)) |
| 422 (same-window-p (buffer-name appt-disp-buf))) | 424 (same-window-p (buffer-name appt-disp-buf))) |
| 423 ;; By default, split the bottom window and use the lower part. | 425 ;; By default, split the bottom window and use the lower part. |
| 424 (appt-select-lowest-window) | 426 (appt-select-lowest-window) |
| 425 ;; Split the window, unless it's too small to do so. | 427 ;; Split the window, unless it's too small to do so. |