diff options
author | David Maus <dmaus@ictsoc.de> | 2011-05-24 20:55:35 +0200 |
---|---|---|
committer | David Maus <dmaus@ictsoc.de> | 2011-05-24 20:55:35 +0200 |
commit | b6384bbcbe49c662c6aee56c30b20ebf23a9e65c (patch) | |
tree | 7a72eb91c3dcad8280d14c0027738381173baca2 | |
parent | 7c4360823a132107d4af04aca673dcd6c3cfd453 (diff) | |
download | org-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.el | 8 |
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))) |