|
@@ -1097,9 +1097,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
|
|
|
- (concat (nth 4 (org-heading-components))
|
|
|
- " (" (file-name-nondirectory (buffer-file-name)) ")")))
|
|
|
+ (setq org-clock-current-task (nth 4 (org-heading-components))))
|
|
|
|
|
|
(defun org-clock-delete-current ()
|
|
|
"Reset `org-clock-current-task' to nil."
|