Browse Source

Fix regression in `org-sort-list'.

* lisp/org-list.el (org-sort-list): end-rec function was ill-defined.
Nicolas Goaziou 15 năm trước cách đây
mục cha
commit
2dec9eb473
1 tập tin đã thay đổi với 2 bổ sung2 xóa
  1. 2 2
      lisp/org-list.el

+ 2 - 2
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