org-list: change heuristics for number of lines separating items
* lisp/org-list.el (org-list-separating-blank-lines-number): if there are blank lines already in the whole list, add a blank line.
This commit is contained in:
parent
41355053e6
commit
688a29c0d6
|
@ -1132,12 +1132,12 @@ some heuristics to guess the result."
|
||||||
(skip-chars-backward " \t")
|
(skip-chars-backward " \t")
|
||||||
(setq usr-blank (org-back-over-empty-lines))) 0))
|
(setq usr-blank (org-back-over-empty-lines))) 0))
|
||||||
usr-blank)
|
usr-blank)
|
||||||
;; Are there blank lines inside the item?
|
;; Are there blank lines inside the list so far?
|
||||||
((save-excursion
|
((save-excursion
|
||||||
(org-list-search-forward
|
(goto-char (org-list-get-top-point struct))
|
||||||
"^[ \t]*$" (org-list-get-item-end-before-blank item struct) t))
|
(org-list-search-forward "^[ \t]*$" item t))
|
||||||
1)
|
1)
|
||||||
;; No parent: no blank line.
|
;; Default choice: no blank line.
|
||||||
(t 0))))))))
|
(t 0))))))))
|
||||||
|
|
||||||
(defun org-list-insert-item (pos struct prevs &optional checkbox after-bullet)
|
(defun org-list-insert-item (pos struct prevs &optional checkbox after-bullet)
|
||||||
|
|
Loading…
Reference in New Issue