diff options
author | Julien Danjou <julien@danjou.info> | 2011-03-18 17:36:18 +0100 |
---|---|---|
committer | Julien Danjou <julien@danjou.info> | 2011-03-18 18:05:12 +0100 |
commit | 7dc1f1a973ebf1164ac49b5751492fe67559ac0e (patch) | |
tree | e6c590246312f790777ef35a2ca3d51524bb58f1 | |
parent | c01c2ad03588b01bdaa019ad32c79988fa782fa7 (diff) | |
download | org-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.el | 13 |
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) |