瀏覽代碼

Fix regression in `org-sort-list'.

* lisp/org-list.el (org-sort-list): end-rec function was ill-defined.
Nicolas Goaziou 15 年之前
父節點
當前提交
2dec9eb473
共有 1 個文件被更改,包括 2 次插入2 次删除
  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