mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 00:46:26 +00:00
Code Releases Activity

org-list.el (org-sort-list): Use x' instead of c' for sorting plain list by checked status

Browse source 
* org-list.el (org-sort-list): Use `x' instead of `c' for
sorting plain list by checked status.
This commit is contained in:
Bastien Guerry 2013-07-04 01:33:02 +02:00
parent b13135c293
commit 6f4e06e54b
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/org-list.el
View file

@ -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 The command prompts for the sorting type unless it has been given
to the function through the SORTING-TYPE argument, which needs to 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: detailed meaning of each character:
n Numerically, by converting the beginning of the item to a number. n Numerically, by converting the beginning of the item to a number.
a Alphabetically. Only the first line of item is checked. a Alphabetically. Only the first line of item is checked.
t By date/time, either the first active time stamp in the entry, if 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. 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. Capital letters will reverse the sort order.
@ -2828,7 +2828,7 @@ ignores hidden links."
(or sorting-type (or sorting-type
(progn (progn
(message (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)))) (read-char-exclusive))))
(getkey-func (getkey-func
(or getkey-func (or getkey-func
@ -2846,7 +2846,7 @@ ignores hidden links."
((= dcst ?a) 'string<) ((= dcst ?a) 'string<)
((= dcst ?f) compare-func) ((= dcst ?f) compare-func)
((= dcst ?t) '<) ((= dcst ?t) '<)
((= dcst ?c) 'string<))) ((= dcst ?x) 'string<)))
(next-record (lambda () (next-record (lambda ()
(skip-chars-forward " \r\t\n") (skip-chars-forward " \r\t\n")
(or (eobp) (beginning-of-line)))) (or (eobp) (beginning-of-line))))
@ -2877,7 +2877,7 @@ ignores hidden links."
(point-at-eol) t))) (point-at-eol) t)))
(org-time-string-to-seconds (match-string 0))) (org-time-string-to-seconds (match-string 0)))
(t (org-float-time now)))) (t (org-float-time now))))
((= dcst ?c) (or (and (stringp (match-string 1)) ((= dcst ?x) (or (and (stringp (match-string 1))
(match-string 1)) (match-string 1))
"")) ""))
((= dcst ?f) ((= dcst ?f)