[Emacs-diffs] emacs/lisp/calendar appt.el

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/11/24 09:50:49

Modified files:
        lisp/calendar  : appt.el 

Log message:
        (appt-disp-window): Move minibuffer check
        after binding this-window and do not set-buffer to make sure we
        won't deselect the minibuffer.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/appt.el?cvsroot=emacs&r1=1.92&r2=1.93

Patches:
Index: appt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/appt.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- appt.el     26 Aug 2008 03:03:21 -0000      1.92
+++ appt.el     24 Nov 2008 09:50:49 -0000      1.93
@@ -408,13 +408,13 @@
   "Display appointment due in MIN-TO-APP (a string) minutes.
 NEW-TIME is a string giving the date.  Displays the appointment
 message APPT-MSG in a separate buffer."
+  (let ((this-window (selected-window))
+        (appt-disp-buf (get-buffer-create appt-buffer-name)))
   ;; 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)