summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-07-04 01:33:02 +0200
committerBastien Guerry <bzg@altern.org>2013-07-04 01:33:02 +0200
commit6f4e06e54bbba3faeb990975257432f638feb0db (patch)
tree5d3dd086b7294d67af2f5c4f5a7c66d41865c114
parentb13135c2935fb9abcac6939743a3da1563c4a730 (diff)
downloadorg-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.el10
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)