From: Glenn Morris Date: Sat, 14 Apr 2007 02:36:58 +0000 (+0000) Subject: (appt-disp-window): Do not split small windows. X-Git-Tag: emacs-pretest-22.0.98~80 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a291c1b7524f214461d3b020657913aed908e820;p=emacs.git (appt-disp-window): Do not split small windows. Suggested by Jeff Miller . --- diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 82fa0e66dbf..02865c994e3 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -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))