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. |