Browse Source

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.
Bastien Guerry 12 years ago
parent
commit
6f4e06e54b
1 changed files with 5 additions and 5 deletions
  1. 5 5
      lisp/org-list.el

+ 5 - 5
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
 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)