summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Danjou <julien@danjou.info>2011-03-18 17:36:18 +0100
committerJulien Danjou <julien@danjou.info>2011-03-18 18:05:12 +0100
commit7dc1f1a973ebf1164ac49b5751492fe67559ac0e (patch)
treee6c590246312f790777ef35a2ca3d51524bb58f1
parentc01c2ad03588b01bdaa019ad32c79988fa782fa7 (diff)
downloadorg-mode-7dc1f1a973ebf1164ac49b5751492fe67559ac0e.tar.gz
org-colview: fix heading retrieval in Org buffers
* lisp/org-colview.el (org-columns-display-here): Fix heading retrieval in Org buffers. Signed-off-by: Julien Danjou <julien@danjou.info>
-rw-r--r--lisp/org-colview.el13
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 3a03453..09f735f 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -186,8 +186,17 @@ This is the compiled version of the format.")
title (nth 1 column)
ass (if (equal property "ITEM")
(cons "ITEM"
- (org-no-properties
- (org-get-at-bol 'txt)))
+ ;; When in a buffer, get the whole line,
+ ;; we'll clean it later…
+ (if (org-mode-p)
+ (save-match-data
+ (org-no-properties
+ (org-remove-tabs
+ (buffer-substring-no-properties
+ (point-at-bol) (point-at-eol)))))
+ ;; In agenda, just get the `txt' property
+ (org-no-properties
+ (org-get-at-bol 'txt))))
(assoc property props))
width (or (cdr (assoc property org-columns-current-maxwidths))
(nth 2 column)