From 5128460f9402b98ff503ef40bc8840555bab506d Mon Sep 17 00:00:00 2001 From: Lei Zhe Date: Fri, 5 Apr 2024 22:07:12 +0800 Subject: [PATCH] org-table-header-line-mode: Fix when cursor is outside table * lisp/org-table.el (org-table-header-set-header): Display table header even when the point is below the table, as long as the table is visible at the top of the window. --- lisp/org-table.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/org-table.el b/lisp/org-table.el index 92490f9f6..2e438792b 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -487,6 +487,11 @@ This may be useful when columns have been shrunk." (delete-overlay org-table-header-overlay)) (let* ((ws (window-start)) (beg (save-excursion + ;; Check table at window start, not at point. + ;; Point might be after the table, or at + ;; another table located below the one visible + ;; on top. + (goto-char ws) (goto-char (org-table-begin)) (while (or (org-at-table-hline-p) (looking-at-p ".*|\\s-+<[rcl]?\\([0-9]+\\)?>"))