From e60353004c6045f525ce56bb0ca183a6c43e647a Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 19 Apr 2010 12:57:34 +0200 Subject: [PATCH] Modify `org-clock-set-current' to just return the headline itself, strip the TODO keyword, the priority cookie and the tags. --- lisp/ChangeLog | 5 +++++ lisp/org-clock.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25839f53f..eb50565ce 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-04-19 Bastien Guerry + + * org-clock.el (org-clock-set-current): Just return the headline + itself, strip the TODO keyword, the priority cookie and the tags. + 2010-04-18 Carsten Dominik * org-html.el (org-export-as-html-and-open): Add argument to diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 78e511324..b971a75a7 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1058,7 +1058,7 @@ the clocking selection, associated with the letter `d'." "Task currently clocked in.") (defun org-clock-set-current () "Set `org-clock-current-task' to the task currently clocked in." - (setq org-clock-current-task (org-get-heading))) + (setq org-clock-current-task (nth 4 (org-heading-components)))) (defun org-clock-delete-current () "Reset `org-clock-current-task' to nil." (setq org-clock-current-task nil))