Преглед изворни кода

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 година
родитељ
комит
78b5dd8d56
1 измењених фајлова са 3 додато и 8 уклоњено
  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