Revert "org.el (org-sort-entries): Allow to sort by clocking time"

This reverts commit 1cca8f534fdfcb34d2bce53a179604f6f8f491f2.

1 files changed, 10 insertions, 14 deletions

diff --git a/lisp/org.el b/lisp/org.el
index cc1fc40..3c7afd2 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8585,21 +8585,20 @@ a time stamp, by a property, by priority order, or by a custom function.
 
 The command prompts for the sorting type unless it has been given to the
 function through the SORTING-TYPE argument, which needs to be a character,
-\(?n ?N ?a ?A ?t ?T ?s ?S ?d ?D ?p ?P ?o ?O ?r ?R ?f ?F ?k ?K).  Here is
-the precise meaning of each character:
+\(?n ?N ?a ?A ?t ?T ?s ?S ?d ?D ?p ?P ?o ?O ?r ?R ?f ?F).  Here is the
+precise meaning of each character:
 
+n   Numerically, by converting the beginning of the entry/item to a number.
 a   Alphabetically, ignoring the TODO keyword and the priority, if any.
+o   By order of TODO keywords.
+t   By date/time, either the first active time stamp in the entry, or, if
+    none exist, by the first inactive one.
+s   By the scheduled date/time.
+d   By deadline date/time.
 c   By creation time, which is assumed to be the first inactive time stamp
     at the beginning of a line.
-d   By deadline date/time.
-k   By clocking time.
-n   Numerically, by converting the beginning of the entry/item to a number.
-o   By order of TODO keywords.
 p   By priority according to the cookie.
 r   By the value of a property.
-s   By scheduled date/time.
-t   By date/time, either the first active time stamp in the entry, or, if
-    none exist, by the first inactive one.
 
 Capital letters will reverse the sort order.
 
@@ -8676,8 +8675,8 @@ links."
     (unless sorting-type
       (message
        "Sort %s: [a]lpha  [n]umeric  [p]riority  p[r]operty  todo[o]rder  [f]unc
-               [t]ime [s]cheduled  [d]eadline  [c]reated  cloc[k]ing
-               A/N/P/R/O/F/T/S/D/C/K means reversed:"
+               [t]ime [s]cheduled  [d]eadline  [c]reated
+               A/N/P/R/O/F/T/S/D/C means reversed:"
        what)
       (setq sorting-type (read-char-exclusive))
 
@@ -8695,7 +8694,6 @@ links."
 				       (mapcar 'list (org-buffer-property-keys t))
 				       nil t))))
 
-    (when (member sorting-type '(?k ?K)) (org-clock-sum))
     (message "Sorting entries...")
 
     (save-restriction
@@ -8730,8 +8728,6 @@ links."
 	     (if (looking-at org-complex-heading-regexp)
 		 (funcall case-func (org-sort-remove-invisible (match-string 4)))
 	       nil))
-	    ((= dcst ?k)
-	     (get-text-property (point) :org-clock-minutes))
 	    ((= dcst ?t)
 	     (let ((end (save-excursion (outline-next-heading) (point))))
 	       (if (or (re-search-forward org-ts-regexp end t)