Browse Source

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.
Bastien Guerry 12 years ago
parent
commit
78b5dd8d56
1 changed files with 3 additions and 8 deletions
  1. 3 8
      lisp/org-clock.el

+ 3 - 8
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