From 90f6324dbffeeba4c08b83ec80e3d3255c9f4738 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 25 Aug 2012 15:41:01 +0200 Subject: [PATCH] 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. --- lisp/org.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 716593710..dd3c1764c 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)