diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-07-12 14:31:20 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-09-01 19:05:44 +0200 |
commit | 2dec9eb4736ae45f8e8afca303442188f97b7f21 (patch) | |
tree | a69dbe8c46b0478beffbe2c4ec758ca72b8964c8 | |
parent | f7f07198dd1331424cb02ca66e91b7d010152595 (diff) | |
download | org-mode-2dec9eb4736ae45f8e8afca303442188f97b7f21.tar.gz |
Fix regression in `org-sort-list'.
* lisp/org-list.el (org-sort-list): end-rec function was ill-defined.
-rw-r--r-- | lisp/org-list.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index 0647a40..721f681 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -1260,8 +1260,8 @@ optional argument WITH-CASE, the sorting considers case as well." ((member dcst '(?p ?t ?s ?d ?c)) '<) (t nil))) (begin-record (lambda () - (let ((next-p (org-get-next-item (point) (point-max)))) - (goto-char (or next-p (point-max)))))) + (skip-chars-forward " \r\t\n") + (beginning-of-line))) (end-record (lambda () (goto-char (org-end-of-item-before-blank)))) (value-to-sort (lambda nil |