branch: externals-release/org
commit 5128460f9402b98ff503ef40bc8840555bab506d
Author: Lei Zhe <[email protected]>
Commit: Ihor Radchenko <[email protected]>
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 92490f9f6b..2e438792b9 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]+\\)?>"))
