From 0850948deaa0fb57ba1050cfe073a821f3a23ea3 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 23 Jan 2011 21:59:36 +0100 Subject: [PATCH] org-list: small bug fix in org-list-struct-apply-struct * lisp/org-list.el (org-list-struct-apply-struct): if end of list was at eol, for example, with list inside a block, the last list wouldn't be shifted. Thus, the patch ensures no blank lines is skipped. --- lisp/org-list.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index 361ae1bfe..079a7b18a 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -1572,7 +1572,8 @@ Initial position of cursor is restored after the changes." ;; Start from the line before END. (lambda (end beg delta) (goto-char end) - (forward-line -1) + (skip-chars-backward " \r\t\n") + (beginning-of-line) (while (or (> (point) beg) (and (= (point) beg) (not (org-at-item-p)))) (when (org-looking-at-p "^[ \t]*\\S-")