summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2010-10-30 14:26:40 +0200
committerDavid Maus <dmaus@ictsoc.de>2010-10-30 18:20:52 +0200
commit0778fb87480b27bcf65c74424df7c461e84285fd (patch)
treea94569d0116144869b542a01b19000bf20432091
parentde210ea9d2b11e5d3b6d1b9f344c5717295172c9 (diff)
downloadorg-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.el3
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))