mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-19 17:18:40 +00:00
Code Releases Activity

Auto-filling must not break current paragraph

Browse source 
* lisp/org.el (org-fill-paragraph-separate-nobreak-p): New function.
(org-set-autofill-regexps): Introduce new predicate.
(org-fill-item-nobreak-p): Remove function.
This commit is contained in:
Nicolas Goaziou 2012-08-24 12:17:22 +02:00
parent 4bc4e8ec18
commit b1223be34d
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org.el
View file

@ -21000,16 +21000,17 @@ hierarchy of headlines by UP levels before marking the subtree."
'fill-nobreak-predicate
(org-uniquify
(append fill-nobreak-predicate
'(org-fill-item-nobreak-p org-fill-line-break-nobreak-p)))))
'(org-fill-paragraph-separate-nobreak-p
org-fill-line-break-nobreak-p)))))
(org-set-local 'normal-auto-fill-function 'org-auto-fill-function)
(org-set-local 'align-mode-rules-list
'((org-in-buffer-settings
(regexp . "^#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
(modes . '(org-mode))))))
(defun org-fill-item-nobreak-p ()
(defun org-fill-paragraph-separate-nobreak-p ()
"Non-nil when a line break at point would insert a new item."
(and (looking-at (org-item-re)) (org-list-in-valid-context-p)))
(looking-at (substring org-element-paragraph-separate 1)))
(defun org-fill-line-break-nobreak-p ()
"Non-nil when a line break at point would create an Org line break."