org-clock-goto: switch to clicked window

org-clock-goto: switch to clicked window

[Magnus Henoch]

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

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


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 508 bytes --]

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

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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

Re: org-clock-goto: switch to clicked window

[Carsten Dominik]

Applied, thanks.

- Carsten

On Jun 19, 2009, at 1:07 PM, Magnus Henoch wrote:

> 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
>
> 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
> _______________________________________________
> 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