(appt-disp-window): Restore a simplified version of

minibuffer-avoidance code deleted in previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8232d980738f59a0f23b6667f9004530eb08dac..0873acd70a205f0f351c6d4469e28887e8add343 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,8 @@
 2007-11-24  Glenn Morris  <rgm@gnu.org>
 
        * calendar/appt.el: Remove leading `*' from defcustom doc-strings.
-       (appt-disp-window): Don't require electric.  Remove
-       minibuffer-avoidance code, since appt-select-lowest-window does that.
+       (appt-disp-window): Don't require electric.  Simplify
+       minibuffer-avoidance code.
        (appt-select-lowest-window): Avoid minibuffer.
 
        * eshell/eshell.el: Remove leading `*' from defcustom doc-strings.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 0c8b9b1918802b67aee1a91e636ba89aec4c3f74..c605cbef10d2a2f4d90ec89ada42c9582e7b72ed 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -436,6 +436,11 @@ displayed in a window:
   "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)))