mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

More rules to determine blank lines when inserting item

Browse Source 
* org-list.el (org-list-insert-item-generic): A single item already
  counting blank lines in his body should be separated with the next
  one by a blank line. Moreover, if user already provided blank lines,
  follow his wishes.
This commit is contained in:
Nicolas Goaziou 2010-08-09 20:03:50 +02:00
parent d726f924dd
commit 97c60a1a86
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-list.el
View File

@ -385,7 +385,8 @@ function ends."
;; Guess number of blank lines used to separate items.
(blank-lines-nb
(let ((insert-blank-p
(cdr (assq 'plain-list-item org-blank-before-new-entry))))
(cdr (assq 'plain-list-item org-blank-before-new-entry)))
usr-blank)
(cond
;; Trivial cases where there should be none.
((or org-empty-line-terminates-plain-lists
@ -401,9 +402,20 @@ function ends."
(org-back-over-empty-lines))
;; Is there a previous item?
((not (org-list-first-item-p)) (org-back-over-empty-lines))
;; User inserted blank lines, trust him
((and (> true-pos (org-end-of-item-before-blank))
(> (save-excursion
(goto-char true-pos)
(skip-chars-backward " \t")
(setq usr-blank (org-back-over-empty-lines))) 0))
usr-blank)
;; Item alone: count lines separating it from parent, if any
((/= (org-list-top-point) (point-at-bol))
(org-back-over-empty-lines))
;; Are there blank lines inside the item ?
((save-excursion
(org-search-forward-unenclosed
"^[ \t]*$" (org-end-of-item-before-blank) t)) 1)
;; No parent: no blank line.
(t 0)))))))
(insert-fun