Browse Source

org-list: check with-case argument when sorting a list alphabetically

* lisp/org-list.el (org-sort-list): no longer ignore with-case
  argument: the function sorted case-sensitively, regardless of
  argument.
Nicolas Goaziou 14 years ago
parent
commit
073ab7de83
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/org-list.el

+ 2 - 1
lisp/org-list.el

@@ -2586,7 +2586,8 @@ compare entries."
 		    (string-to-number (buffer-substring (match-end 0)
 		    (string-to-number (buffer-substring (match-end 0)
 							(point-at-eol))))
 							(point-at-eol))))
 		   ((= dcst ?a)
 		   ((= dcst ?a)
-		    (buffer-substring (match-end 0) (point-at-eol)))
+		    (funcall case-func
+			     (buffer-substring (match-end 0) (point-at-eol))))
 		   ((= dcst ?t)
 		   ((= dcst ?t)
 		    (cond
 		    (cond
 		     ;; If it is a timer list, convert timer to seconds
 		     ;; If it is a timer list, convert timer to seconds