From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: Bug: appt-display makes point back to buffer. Date: Sun, 23 Nov 2008 18:58:28 +0100 Message-ID: <492999C4.50703@gmx.at> References: <87iqqg2pzz.fsf@sina.com> <4928051F.8000003@gmx.at> <877i6vx38t.fsf@sina.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------010503000001020103050304" X-Trace: ger.gmane.org 1227463273 4083 80.91.229.12 (23 Nov 2008 18:01:13 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 23 Nov 2008 18:01:13 +0000 (UTC) Cc: emacs-devel@gnu.org To: anhnmncb Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Nov 23 19:02:17 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1L4JHj-0008C9-Kw for ged-emacs-devel@m.gmane.org; Sun, 23 Nov 2008 19:02:15 +0100 Original-Received: from localhost ([127.0.0.1]:43226 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1L4JGa-0006P0-BE for ged-emacs-devel@m.gmane.org; Sun, 23 Nov 2008 13:01:04 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1L4JGW-0006Nq-7p for emacs-devel@gnu.org; Sun, 23 Nov 2008 13:01:00 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1L4JGU-0006Ms-Rz for emacs-devel@gnu.org; Sun, 23 Nov 2008 13:00:59 -0500 Original-Received: from [199.232.76.173] (port=43815 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1L4JGU-0006Mp-Mg for emacs-devel@gnu.org; Sun, 23 Nov 2008 13:00:58 -0500 Original-Received: from mail.gmx.net ([213.165.64.20]:46734) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1L4JGT-0004tY-Rd for emacs-devel@gnu.org; Sun, 23 Nov 2008 13:00:58 -0500 Original-Received: (qmail invoked by alias); 23 Nov 2008 18:00:49 -0000 Original-Received: from 88-117-41-136.adsl.highway.telekom.at (EHLO [88.117.41.136]) [88.117.41.136] by mail.gmx.net (mp039) with SMTP; 23 Nov 2008 19:00:49 +0100 X-Authenticated: #14592706 X-Provags-ID: V01U2FsdGVkX19ODBh2JL9OyM8mMwIUbVaZZ6idrc76BXGaFGl9f+ tqSLGn+dC13fFt User-Agent: Thunderbird 2.0.0.16 (Windows/20080708) In-Reply-To: <877i6vx38t.fsf@sina.com> X-Y-GMX-Trusted: 0 X-FuHaFi: 0.74,0.64 X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:106042 Archived-At: This is a multi-part message in MIME format. --------------010503000001020103050304 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit > 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 --------------010503000001020103050304 Content-Type: text/plain; name="appt.diff" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="appt.diff" *** 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) --------------010503000001020103050304--