diff options
author | Michael Brand <michael.brand@alumni.ethz.ch> | 2016-02-08 19:59:36 +0100 |
---|---|---|
committer | Michael Brand <michael.brand@alumni.ethz.ch> | 2016-02-08 19:59:36 +0100 |
commit | bfa670cd4ee652e97045aa4177def1b6d0fd2877 (patch) | |
tree | b848eaa84e0c46b93a180b2c6151b00c591672e8 | |
parent | 4f499fff9692f0ed745eddac867a34c4979574dd (diff) | |
download | org-mode-bfa670cd4ee652e97045aa4177def1b6d0fd2877.tar.gz |
Column view: Use `org-hide-leading-stars'
* lisp/org-colview.el (org-columns): Make building of the item stars
dependent on `org-hide-leading-stars'.
-rw-r--r-- | lisp/org-colview.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index e615a64..c8628af 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -718,8 +718,11 @@ When COLUMNS-FMT-STRING is non-nil, use it as the column format." (cons p (let ((v (org-columns--value p (point)))) (if (not (equal "ITEM" p)) v - (concat (make-string (org-current-level) ?*) - " " + (concat (make-string + (1- (org-current-level)) + (if org-hide-leading-stars + ?\s ?*)) + "* " v))))) column-names))) nil nil (and org-columns-skip-archived-trees 'archive)))) |