mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 17:46:27 +00:00
Code Releases Activity

Modify `org-clock-set-current' to just return the headline itself, strip

Browse source 
the TODO keyword, the priority cookie and the tags.
This commit is contained in:
Bastien Guerry 2010-04-19 12:57:34 +02:00
parent a000f6163d
commit e60353004c
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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>
* org-html.el (org-export-as-html-and-open): Add argument to

2
lisp/org-clock.el
View file

@ -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))