From fb9eb697d67ce757811aa03e8297b551bec920e5 Mon Sep 17 00:00:00 2001 From: Bastien Date: Fri, 31 Jan 2020 21:19:45 +0100 Subject: [PATCH] org-table.el: Fix `org-table-set-header-line-format' for org-indent-mode * 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. --- lisp/org-table.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/org-table.el b/lisp/org-table.el index b2d8c748b..0a4386cbb 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -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)))))