ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Nicolas Goaziou 2010-08-15 16:37:39 +02:00
parent 7ef456426e
commit 05aeeae9ed
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -18585,10 +18585,16 @@ which make use of the date at the cursor."
((looking-at "\\([ \t]*\\):END:") ((looking-at "\\([ \t]*\\):END:")
(goto-char (match-end 1)) (goto-char (match-end 1))
(setq column (current-column))) (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) ((org-in-item-p)
(goto-char (org-list-top-point)) (outline-previous-heading)
(setq column (org-get-indentation))) (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. ;; Else, nothing noticeable found: get indentation and go on.
(t (setq column (org-get-indentation)))))) (t (setq column (org-get-indentation))))))
(goto-char pos) (goto-char pos)