forked from mirrors/org-mode
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")
|
||||
(setq usr-blank (org-back-over-empty-lines))) 0))
|
||||
usr-blank)
|
||||
;; Are there blank lines inside the item?
|
||||
;; Are there blank lines inside the list so far?
|
||||
((save-excursion
|
||||
(org-list-search-forward
|
||||
"^[ \t]*$" (org-list-get-item-end-before-blank item struct) t))
|
||||
(goto-char (org-list-get-top-point struct))
|
||||
(org-list-search-forward "^[ \t]*$" item t))
|
||||
1)
|
||||
;; No parent: no blank line.
|
||||
;; Default choice: no blank line.
|
||||
(t 0))))))))
|
||||
|
||||
(defun org-list-insert-item (pos struct prevs &optional checkbox after-bullet)
|
||||
|
|
Loading…
Reference in a new issue