tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix commit 5ec31814

Browse source
This commit is contained in:
Bastien Guerry 2014-04-17 13:19:15 +02:00
parent 13230e3a66
commit cd823dc3f7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org.el
View file

@ -8833,7 +8833,7 @@ When sorting is done, call `org-after-sorting-entries-or-items-hook'."
(funcall case-func (org-sort-remove-invisible (match-string 4)))
nil))
((= dcst ?k)
(get-text-property (point) :org-clock-minutes))
(or (get-text-property (point) :org-clock-minutes) 0))
((= dcst ?t)
(let ((end (save-excursion (outline-next-heading) (point))))
(if (or (re-search-forward org-ts-regexp end t)
@ -8879,7 +8879,7 @@ When sorting is done, call `org-after-sorting-entries-or-items-hook'."
(cond
((= dcst ?a) 'string<)
((= dcst ?f) compare-func)
((member dcst '(?p ?t ?s ?d ?c)) '<)))))
((member dcst '(?p ?t ?s ?d ?c ?k)) '<)))))
(run-hooks 'org-after-sorting-entries-or-items-hook)
;; Reset the clock marker if needed
(when cmstr