diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-25 15:41:01 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-25 15:41:01 +0200 |
commit | 90f6324dbffeeba4c08b83ec80e3d3255c9f4738 (patch) | |
tree | 46c71fe87f50e60c0b1c6e8487b5a638aa29fe52 | |
parent | b4604d2833372fcbd6cffe4018d8e3cc98f6ae33 (diff) | |
download | org-mode-90f6324dbffeeba4c08b83ec80e3d3255c9f4738.tar.gz |
Add missing part from commit b4604d2833372fcbd6cffe4018d8e3cc98f6ae33
* lisp/org.el (org-fill-context-prefix): Fix incorrect output when
called at the beginning of a plain list with an affiliated keyword.
(org-fill-paragraph): Remove useless variable.
-rw-r--r-- | lisp/org.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7165937..dd3c176 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -21043,9 +21043,7 @@ meant to be filled." (comment (looking-at "[ \t]*# ?") (match-string 0)) (footnote-definition "") ((item plain-list) - (make-string (org-list-item-body-column - (org-element-property :begin element)) - ? )) + (make-string (org-list-item-body-column post-affiliated) ? )) (paragraph ;; Fill prefix is usually the same as the current line, ;; except if the paragraph is at the beginning of an item. @@ -21119,8 +21117,7 @@ a footnote definition, try to fill the first paragraph within." (let ((beg (max (point-min) (org-element-property :contents-begin element))) (end (min (point-max) - (org-element-property :contents-end element))) - (type (org-element-type element))) + (org-element-property :contents-end element)))) ;; Do nothing if point is at an affiliated keyword. (if (< (point) beg) t (when (derived-mode-p 'message-mode) |