mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-01 11:15:00 +00:00
Code

Fix list end with non-empty blank lines. Fix sorting.

Browse Source 
* 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.
This commit is contained in:
Nicolas Goaziou 2010-10-30 14:26:40 +02:00 committed by David Maus
parent de210ea9d2
commit 0778fb8748
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-list.el
View File

@ -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))