From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: [PATCH] Jump to selected clock task when starting the clock Date: Wed, 15 Apr 2009 22:06:55 -0400 Message-ID: <1239847615-15244-2-git-send-email-bernt@norang.ca> References: <1239847615-15244-1-git-send-email-bernt@norang.ca> Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LuH0T-0005k9-T2 for emacs-orgmode@gnu.org; Wed, 15 Apr 2009 22:07:13 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LuH0Q-0005jl-6a for emacs-orgmode@gnu.org; Wed, 15 Apr 2009 22:07:13 -0400 Received: from [199.232.76.173] (port=52930 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LuH0Q-0005ji-0m for emacs-orgmode@gnu.org; Wed, 15 Apr 2009 22:07:10 -0400 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:50788) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LuH0P-0000ff-Lt for emacs-orgmode@gnu.org; Wed, 15 Apr 2009 22:07:09 -0400 Received: from cpe000102d0fe75-cm0012256ecbde.cpe.net.cable.rogers.com ([99.239.148.180] helo=mail.norang.ca) by mho-02-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.68) (envelope-from ) id 1LuH0O-0004yR-U0 for emacs-orgmode@gnu.org; Thu, 16 Apr 2009 02:07:09 +0000 In-Reply-To: <1239847615-15244-1-git-send-email-bernt@norang.ca> 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 Cc: Bernt Hansen Move the point to the selected task when clocking in using the clock history. I find I'm always going to the currently clocked task after picking it off of the menu and this saves one small step. This could be optionally controlled by a variable. --- This commit is available at git://git.norang.ca/org-mode for-carsten lisp/org-clock.el | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 0b0b607..e56f82f 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -380,7 +380,8 @@ the clocking selection, associated with the letter `d'." (org-clock-update-mode-line) (setq org-clock-mode-line-timer (run-with-timer 60 60 'org-clock-update-mode-line)) - (message "Clock started at %s" ts))))))) + (message "Clock started at %s" ts))))) + (org-clock-goto nil))) (defun org-clock-find-position (find-unclosed) "Find the location where the next clock line should be inserted. -- 1.6.3.rc0