From b6384bbcbe49c662c6aee56c30b20ebf23a9e65c Mon Sep 17 00:00:00 2001 From: David Maus Date: Tue, 24 May 2011 20:55:35 +0200 Subject: [PATCH] Prevent adding of extra space to value if property already exists * org.el (org-entry-put): Prevent adding of extra space to value if property already exists. Fixes a regression reported by Wujun Zhou. --- lisp/org.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 9f8fa9225..cdf48c16b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13900,13 +13900,13 @@ and the new value.") (if (re-search-forward (org-re-property property) (cdr range) t) (progn - (delete-region (match-beginning 1) (match-end 1)) - (goto-char (match-beginning 1))) + (delete-region (match-beginning 0) (match-end 0)) + (goto-char (match-beginning 0))) (goto-char (cdr range)) (insert "\n") (backward-char 1) - (org-indent-line-function) - (insert ":" property ":")) + (org-indent-line-function)) + (insert ":" property ":") (and value (insert " " value)) (org-indent-line-function))))) (run-hook-with-args 'org-property-changed-functions property value)))