From d5b22d8895eefbcb22eb67c3a2333f9872160260 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 9 Oct 1994 09:19:16 +0000 Subject: [PATCH] (appt-delete-window): Look on all frames for the window. (appt-disp-window): If frame is unsplittable, use display-buffer. --- lisp/calendar/appt.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 98e555fed13..4bbfe2ca542 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -366,14 +366,17 @@ Therefore, you need to have `(display-time)' in your .emacs file." (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name)))) (appt-select-lowest-window) - (split-window) - - (pop-to-buffer appt-disp-buf) + (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) + (pop-to-buffer appt-disp-buf)) (setq mode-line-format (concat "-------------------- Appointment in " min-to-app " minutes. " new-time " %-")) (insert-string appt-msg) - (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf)) + (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t)) (set-buffer-modified-p nil) (select-window this-window) (if appt-audible @@ -382,7 +385,7 @@ Therefore, you need to have `(display-time)' in your .emacs file." (defun appt-delete-window () "Function called to undisplay appointment messages. Usually just deletes the appointment buffer." - (delete-window (get-buffer-window appt-buffer-name)) + (delete-window (get-buffer-window appt-buffer-name t)) (kill-buffer appt-buffer-name) (if appt-audible (beep 1))) -- 2.39.5