mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-table.el: Adapt `org-table-set-header-line-format' again 

* lisp/org-table.el (org-table-set-header-line-format): Adapt
to `display-line-numbers-mode'.
This commit is contained in:
Bastien 2020-01-31 21:24:12 +01:00
parent fb9eb697d6
commit c83f889826
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-table.el
View File

@ -467,6 +467,9 @@ existing value of `header-line-format' we might want to restore."
0.001 nil
(lambda ()
(let* ((beg (org-table-begin))
;; Are we using `display-line-numbers-mode'?
(lin (and display-line-numbers-mode
(round (line-number-display-width 'columns))))
;; Are we using `org-indent-mode'?
(pre (and org-indent-mode
(length (get-text-property (point) 'line-prefix))))
@ -478,6 +481,7 @@ existing value of `header-line-format' we might want to restore."
(if (< tbeg (save-excursion (move-to-window-line 0) (point)))
(setq header-line-format
(concat (propertize " " 'display '(space :width left-fringe))
(when lin (make-string lin 32))
(when pre (make-string pre 32))
(buffer-substring
tbeg (+ tbeg (- (point-at-eol) (point-at-bol))))))