comparison lisp/calendar/appt.el @ 86420:b245f4378114

(appt-disp-window): Restore a simplified version of minibuffer-avoidance code deleted in previous change.

86419:3bf867697670

(defun appt-disp-window (min-to-app new-time appt-msg)
  "Display appointment message APPT-MSG in a separate buffer.
The appointment is due in MIN-TO-APP (a string) minutes.
NEW-TIME is a string giving the date."
  (let ((this-window (selected-window))
        (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name))))
    (if (cdr (assq 'unsplittable (frame-parameters)))
	;; In an unsplittable frame, use something somewhere else.
	(display-buffer appt-disp-buf)

86420:b245f4378114

(defun appt-disp-window (min-to-app new-time appt-msg)
  "Display appointment message APPT-MSG in a separate buffer.
The appointment is due in MIN-TO-APP (a string) minutes.
NEW-TIME is a string giving the date."
  ;; Make sure we're not in the minibuffer before splitting the window.
  ;; FIXME this seems needlessly complicated?
  (when (minibufferp)
    (other-window 1)
    (and (minibufferp) (display-multi-frame-p) (other-frame 1)))
  (let ((this-window (selected-window))
        (appt-disp-buf (set-buffer (get-buffer-create appt-buffer-name))))
    (if (cdr (assq 'unsplittable (frame-parameters)))
	;; In an unsplittable frame, use something somewhere else.
	(display-buffer appt-disp-buf)