Jelajahi Sumber

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.
Bastien 5 tahun lalu
induk
melakukan
fb9eb697d6
1 mengubah file dengan 4 tambahan dan 0 penghapusan
  1. 4 0
      lisp/org-table.el

+ 4 - 0
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)))))