summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Maus <dmaus@ictsoc.de>2011-05-24 20:55:35 +0200
committerDavid Maus <dmaus@ictsoc.de>2011-05-24 20:55:35 +0200
commitb6384bbcbe49c662c6aee56c30b20ebf23a9e65c (patch)
tree7a72eb91c3dcad8280d14c0027738381173baca2
parent7c4360823a132107d4af04aca673dcd6c3cfd453 (diff)
downloadorg-mode-b6384bbcbe49c662c6aee56c30b20ebf23a9e65c.tar.gz
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.
-rw-r--r--lisp/org.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 9f8fa92..cdf48c1 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)))