From 05aeeae9ed2a845e89c1e62c3bbab8cd6e35fe1f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 15 Aug 2010 16:37:39 +0200 Subject: [PATCH] First line after a list should not be indented according to list * org.el (org-indent-line-function): Indent first non blank line after a list according to current heading level. --- lisp/org.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 80b0fbf33..1bd446796 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18585,10 +18585,16 @@ which make use of the date at the cursor." ((looking-at "\\([ \t]*\\):END:") (goto-char (match-end 1)) (setq column (current-column))) - ;; There was a list that since ended: indent like top point. + ;; There was a list that since ended: indent relatively to + ;; current heading. ((org-in-item-p) - (goto-char (org-list-top-point)) - (setq column (org-get-indentation))) + (outline-previous-heading) + (if (and org-adapt-indentation + (looking-at "\\*+[ \t]+")) + (progn + (goto-char (match-end 0)) + (setq column (current-column))) + (setq column 0))) ;; Else, nothing noticeable found: get indentation and go on. (t (setq column (org-get-indentation)))))) (goto-char pos)