mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:37:52 +00:00
Code Releases Activity

org-table.el: Fix `org-table-set-header-line-format' for org-indent-mode

Browse source 
* lisp/org-table.el (org-table-set-header-line-format): When
`org-indent-mode' is turned on, adapt the header's left space
to size of the line prefix.
This commit is contained in:
Bastien 2020-01-31 21:19:45 +01:00
parent 6e944086fb
commit fb9eb697d6
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 `org-indent-mode'?
(pre (and org-indent-mode
(length (get-text-property (point) 'line-prefix))))
(tbeg (if (save-excursion
(goto-char beg) (org-at-table-hline-p))
(save-excursion
@ -475,6 +478,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 pre (make-string pre 32))
(buffer-substring
tbeg (+ tbeg (- (point-at-eol) (point-at-bol))))))
(setq header-line-format org-table-temp-header-line)))))