diff options
author | Bastien Guerry <bzg@altern.org> | 2013-07-04 01:33:02 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-07-04 01:33:02 +0200 |
commit | 6f4e06e54bbba3faeb990975257432f638feb0db (patch) | |
tree | 5d3dd086b7294d67af2f5c4f5a7c66d41865c114 | |
parent | b13135c2935fb9abcac6939743a3da1563c4a730 (diff) | |
download | org-mode-6f4e06e54bbba3faeb990975257432f638feb0db.tar.gz |
org-list.el (org-sort-list): Use `x' instead of `c' for sorting plain list by checked status
* org-list.el (org-sort-list): Use `x' instead of `c' for
sorting plain list by checked status.
-rw-r--r-- | lisp/org-list.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index ccd8f9d..fab3a2a 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -2799,14 +2799,14 @@ optional argument WITH-CASE, the sorting considers case as well. 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 ?f ?F ?c ?C). Here is the +be a character, \(?n ?N ?a ?A ?t ?T ?f ?F ?x ?X). Here is the detailed meaning of each character: n Numerically, by converting the beginning of the item to a number. a Alphabetically. Only the first line of item is checked. t By date/time, either the first active time stamp in the entry, if any, or by the first inactive one. In a timer list, sort the timers. -c By \"checked\" status of a check list. +x By \"checked\" status of a check list. Capital letters will reverse the sort order. @@ -2828,7 +2828,7 @@ ignores hidden links." (or sorting-type (progn (message - "Sort plain list: [a]lpha [n]umeric [t]ime [f]unc [c]hecked A/N/T/F/C means reversed:") + "Sort plain list: [a]lpha [n]umeric [t]ime [f]unc [x]checked A/N/T/F/X means reversed:") (read-char-exclusive)))) (getkey-func (or getkey-func @@ -2846,7 +2846,7 @@ ignores hidden links." ((= dcst ?a) 'string<) ((= dcst ?f) compare-func) ((= dcst ?t) '<) - ((= dcst ?c) 'string<))) + ((= dcst ?x) 'string<))) (next-record (lambda () (skip-chars-forward " \r\t\n") (or (eobp) (beginning-of-line)))) @@ -2877,7 +2877,7 @@ ignores hidden links." (point-at-eol) t))) (org-time-string-to-seconds (match-string 0))) (t (org-float-time now)))) - ((= dcst ?c) (or (and (stringp (match-string 1)) + ((= dcst ?x) (or (and (stringp (match-string 1)) (match-string 1)) "")) ((= dcst ?f) |