diff options
author | Bastien <bzg@gnu.org> | 2018-04-27 00:44:55 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2018-04-27 00:44:55 +0200 |
commit | 8cdefed80b5ea02b17e5e6ec17175b0fd0c53d05 (patch) | |
tree | 9908f31a80318fb8d8eacc884174282221d7a738 | |
parent | 25f99522adf1488f934e23328c735e879391a1c9 (diff) | |
download | org-mode-8cdefed80b5ea02b17e5e6ec17175b0fd0c53d05.tar.gz |
org-colview.el: Possibly take linum-offset into account
* lisp/org-colview.el (org-columns--display-here-title):
Possibly take linum-offset into account.
Thanks to Eric S Fraga for reporting this.
-rw-r--r-- | lisp/org-colview.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index d7011f0..65d6c54 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -448,6 +448,7 @@ for the duration of the command.") "Overlay the newline before the current line with the table title." (interactive) (let ((title "") + (linum-offset (line-number-display-width 'columns)) (i 0)) (dolist (column org-columns-current-fmt-compiled) (pcase column @@ -459,7 +460,7 @@ for the duration of the command.") (setq-local org-previous-header-line-format header-line-format) (setq org-columns-full-header-line-format (concat - (org-add-props " " nil 'display '(space :align-to 0)) + (org-add-props " " nil 'display `(space :align-to ,linum-offset)) (org-add-props (substring title 0 -1) nil 'face 'org-column-title))) (setq org-columns-previous-hscroll -1) (add-hook 'post-command-hook 'org-columns-hscroll-title nil 'local))) |