tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-clock.el (org-clock-insert-selection-line): Don't display the clockout time

Browse source 
* org-clock.el (org-clock-insert-selection-line): Don't
display the clockout time.

This partially reverts commit ff4b7a47, which introduced this, but
Bernt Hansen confirmed this was not practical in some circumstances.
This commit is contained in:
Bastien Guerry 2013-04-12 08:21:48 +02:00
parent 3e0ed43df2
commit 78b5dd8d56
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org-clock.el
View file

@ -565,7 +565,7 @@ of a different task.")
And return a cons cell with the selection character integer and the marker
pointing to it."
(when (marker-buffer marker)
(let (file cat clockout task heading prefix)
(let (file cat task heading prefix)
(with-current-buffer (org-base-buffer (marker-buffer marker))
(save-excursion
(save-restriction
@ -574,11 +574,6 @@ pointing to it."
(goto-char marker)
(setq file (buffer-file-name (marker-buffer marker))
cat (org-get-category)
clockout (replace-regexp-in-string
"^<\\(.+\\)>$" "\\1"
(format-time-string
(cdr org-time-stamp-formats)
(org-clock-get-last-clock-out-time)))
heading (org-get-heading 'notags)
prefix (save-excursion
(org-back-to-heading t)
@ -589,8 +584,8 @@ pointing to it."
(concat prefix heading)
org-odd-levels-only)
(length prefix)))))))
(when (and cat task clockout)
(insert (format "[%c] %-12s %-12s %s\n" i cat clockout task))
(when (and cat task)
(insert (format "[%c] %-12s %s\n" i cat task))
(cons i marker)))))
(defvar org-clock-task-overrun nil