From 4026f2e3addc603531bf5a7f04307eff6bd0eda6 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 1 Sep 2012 21:38:18 +0200 Subject: [PATCH] Remove occasional spurious space character when auto-filling * lisp/org.el (org-adaptive-fill-function): Remove occasional spurious space character when auto-filling. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 4da0994e0..4a85b7d73 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -21061,7 +21061,7 @@ meant to be filled." (make-string (org-list-item-body-column (org-element-property :begin parent)) ? )) - ((looking-at "[ \t]*") (match-string 0)) + ((looking-at "[ \t]+") (match-string 0)) (t "")))) (comment-block ;; Only fill contents if P is within block boundaries. @@ -21073,7 +21073,7 @@ meant to be filled." (skip-chars-backward " \r\t\n") (line-beginning-position)))) (when (and (>= p cbeg) (< p cend)) - (if (looking-at "[ \t]*") (match-string 0) "")))))))))) + (if (looking-at "[ \t]+") (match-string 0) "")))))))))) (declare-function message-goto-body "message" ()) (defvar message-cite-prefix-regexp) ; From message.el