From mboxrd@z Thu Jan 1 00:00:00 1970 From: Magnus Henoch Subject: org-clock-goto: switch to clicked window Date: Fri, 19 Jun 2009 12:07:20 +0100 Message-ID: <84my84fpnb.fsf@linux-b2a3.site> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MHbwb-0002bY-3k for emacs-orgmode@gnu.org; Fri, 19 Jun 2009 07:07:41 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MHbwW-0002XM-9n for emacs-orgmode@gnu.org; Fri, 19 Jun 2009 07:07:40 -0400 Received: from [199.232.76.173] (port=40009 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MHbwV-0002XC-Uy for emacs-orgmode@gnu.org; Fri, 19 Jun 2009 07:07:36 -0400 Received: from main.gmane.org ([80.91.229.2]:45950 helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MHbwV-0005Ld-Dt for emacs-orgmode@gnu.org; Fri, 19 Jun 2009 07:07:35 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1MHbwS-0008Bu-Vl for emacs-orgmode@gnu.org; Fri, 19 Jun 2009 11:07:32 +0000 Received: from host213-123-170-251.in-addr.btopenworld.com ([213.123.170.251]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 19 Jun 2009 11:07:32 +0000 Received: from magnus.henoch by host213-123-170-251.in-addr.btopenworld.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 19 Jun 2009 11:07:32 +0000 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= I just discovered that org-clock-in displays the clocked-in task in the mode line, so that I can click it and go back to the Org file, which I really like. I changed it to switch to the window in which I click, by prepending "@" to the interactive spec of org-clock-goto. Magnus --=-=-= Content-Type: text/x-patch Content-Disposition: inline diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 4825c1a..14d1158 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -729,7 +729,7 @@ If there is no running clock, throw an error, unless FAIL-QUIETLY is set." (defun org-clock-goto (&optional select) "Go to the currently clocked-in entry, or to the most recently clocked one. With prefix arg SELECT, offer recently clocked tasks for selection." - (interactive "P") + (interactive "@P") (let* ((recent nil) (m (cond (select --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--