andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(appt-disp-window): Do not split small windows.

Browse source 
Suggested by Jeff Miller <jmiller@cablespeed.com>.
This commit is contained in:
Glenn Morris 2007-04-14 02:36:58 +00:00
parent 1ed5afd9e4
commit a291c1b752
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calendar/appt.el
View file

@ -233,8 +233,8 @@ The variable `appt-audible' controls the audible reminder."
;; vars appt-msg-window and appt-visible are dropped.
(let ((appt-display-format
(if (eq appt-display-format 'ignore)
(cond (appt-msg-window 'window)
(appt-visible 'echo))
(cond (appt-msg-window 'window)
(appt-visible 'echo))
appt-display-format)))
(cond ((eq appt-display-format 'window)
(funcall appt-disp-window-function
@ -457,7 +457,9 @@ NEW-TIME is a string giving the date."
(same-window-p (buffer-name appt-disp-buf)))
;; By default, split the bottom window and use the lower part.
(appt-select-lowest-window)
(select-window (split-window)))
;; Split the window, unless it's too small to do so.
(when (>= (window-height) (* 2 window-min-height))
(select-window (split-window))))
(switch-to-buffer appt-disp-buf))
(calendar-set-mode-line
(format " Appointment in %s minutes. %s " min-to-app new-time))