diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-10-30 14:26:40 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2010-10-30 18:20:52 +0200 |
commit | 0778fb87480b27bcf65c74424df7c461e84285fd (patch) | |
tree | a94569d0116144869b542a01b19000bf20432091 | |
parent | de210ea9d2b11e5d3b6d1b9f344c5717295172c9 (diff) | |
download | org-mode-0778fb87480b27bcf65c74424df7c461e84285fd.tar.gz |
Fix list end with non-empty blank lines. Fix sorting.
* org-list.el (org-list-bottom-point-with-indent): do not check
indentation of a non-empty blank line.
* org-list.el (org-sort-list): sort a list with point anywhere inside
it.
-rw-r--r-- | lisp/org-list.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-list.el b/lisp/org-list.el index 85a38b0..fb504ff 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -500,8 +500,8 @@ List ending is determined by the indentation of text. See (org-list-maybe-skip-block #'re-search-forward limit) (beginning-of-line) (catch 'exit - (skip-chars-forward " \t") (while t + (skip-chars-forward " \t") (let ((ind (org-get-indentation))) (cond ((or (>= (point) limit) @@ -1965,6 +1965,7 @@ compare entries." (message "Sorting items...") (save-restriction (narrow-to-region start end) + (goto-char (point-min)) (let* ((dcst (downcase sorting-type)) (case-fold-search nil) (now (current-time)) |