mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 15:02:53 +00:00
Modify `org-clock-set-current' to just return the headline itself, strip
the TODO keyword, the priority cookie and the tags.
This commit is contained in:
parent
a000f6163d
commit
e60353004c
|
@ -1,3 +1,8 @@
|
||||||
|
2010-04-19 Bastien Guerry <bzg@altern.org>
|
||||||
|
|
||||||
|
* 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 <carsten.dominik@gmail.com>
|
2010-04-18 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org-html.el (org-export-as-html-and-open): Add argument to
|
* org-html.el (org-export-as-html-and-open): Add argument to
|
||||||
|
|
|
@ -1058,7 +1058,7 @@ the clocking selection, associated with the letter `d'."
|
||||||
"Task currently clocked in.")
|
"Task currently clocked in.")
|
||||||
(defun org-clock-set-current ()
|
(defun org-clock-set-current ()
|
||||||
"Set `org-clock-current-task' to the task currently clocked in."
|
"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 ()
|
(defun org-clock-delete-current ()
|
||||||
"Reset `org-clock-current-task' to nil."
|
"Reset `org-clock-current-task' to nil."
|
||||||
(setq org-clock-current-task nil))
|
(setq org-clock-current-task nil))
|
||||||
|
|
Loading…
Reference in a new issue