Re: Bug: appt-display makes point back to buffer.

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 403 bytes --]

> emacs -Q
> 
> eval (appt-activate 1) in *scratch* buffer.
> 
> Use M-x appt-add to add a time to appt. Then C-x C-f to enter the
> minibuf area, waits for the appt activates.
> 
> When activates, the point moves from minibuf to buffer(maybe call
> window?). Now I have to C-x o to enter the minibuf.

I suppose the attached patch should fix this.  But it might break
something else.  Glenn?

martin



[-- Attachment #2: appt.diff --]
[-- Type: text/plain, Size: 1291 bytes --]

*** calendar/appt.el.~1.92.~	2008-08-31 09:48:52.453125000 +0200
--- calendar/appt.el	2008-11-23 18:55:59.125000000 +0100
***************
*** 410,420 ****
  message APPT-MSG in a separate buffer."
    ;; 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)
--- 410,420 ----
  message APPT-MSG in a separate buffer."
    ;; Make sure we're not in the minibuffer before splitting the window.
    ;; FIXME this seems needlessly complicated?
    (let ((this-window (selected-window))
!         (appt-disp-buf (get-buffer-create appt-buffer-name)))
!     (when (minibufferp)
!       (other-window 1)
!       (and (minibufferp) (display-multi-frame-p) (other-frame 1)))
      (if (cdr (assq 'unsplittable (frame-parameters)))
          ;; In an unsplittable frame, use something somewhere else.
          (display-buffer appt-disp-buf)