diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-22 14:18:41 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-05-22 14:18:41 +0200 |
commit | 78a8078d648fa81e3b8d767ec47b0c9250917dda (patch) | |
tree | fda941b7fecd63eb05e21c145a6c4e9687c3bf35 | |
parent | 2b44a1a74c6da2d4b8572a0367bb361197a603b9 (diff) | |
parent | 9fd562f35a7097a8cff74968b4f0f600498760a0 (diff) | |
download | org-mode-78a8078d648fa81e3b8d767ec47b0c9250917dda.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-colview.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 8072535..168d5bb 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1153,8 +1153,13 @@ properties drawers." ;; When PROPERTY exists in current node, even if empty, ;; but its value doesn't match the one computed, use ;; the latter instead. - (when (and update value (not (equal value summary))) - (org-entry-put (point) property summary))) + ;; + ;; Ignore leading or trailing white spaces that might + ;; have been introduced in summary, since those are not + ;; significant in properties value. + (let ((new-value (org-trim summary))) + (when (and update value (not (equal value new-value))) + (org-entry-put (point) property new-value)))) ;; Add current to current level accumulator. (when (or summary value-set) (push (or summary value) (aref lvals level))) |