mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Nicolas Goaziou 2011-07-11 16:35:31 +02:00
parent 41355053e6
commit 688a29c0d6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-list.el
View File

@ -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)