[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Bug: appt-display makes point back to buffer.
From: |
martin rudalics |
Subject: |
Re: Bug: appt-display makes point back to buffer. |
Date: |
Sun, 23 Nov 2008 18:58:28 +0100 |
User-agent: |
Thunderbird 2.0.0.16 (Windows/20080708) |
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
*** 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)