diff options
author | Bastien Guerry <bzg@altern.org> | 2013-04-12 08:21:48 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-12 08:21:48 +0200 |
commit | 78b5dd8d565a4ff7cb3e3dbec6ae8f6bd4c9900b (patch) | |
tree | 282aa01b749191ebc6682dc6624c828458ecd98d | |
parent | 3e0ed43df27a4f623fd8113ba0c4a9656c4dec60 (diff) | |
download | org-mode-78b5dd8d565a4ff7cb3e3dbec6ae8f6bd4c9900b.tar.gz |
org-clock.el (org-clock-insert-selection-line): Don't display the clockout time
* 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.
-rw-r--r-- | lisp/org-clock.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index d7b8d5a..62ddc5e 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -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 |