Selaa lähdekoodia

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 vuotta sitten
vanhempi
commit
78b5dd8d56
1 muutettua tiedostoa jossa 3 lisäystä ja 8 poistoa
  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