mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Lei Zhe 2024-04-05 22:07:12 +08:00 committed by Ihor Radchenko
parent 096ecc9e24
commit 5128460f94
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-table.el
View File

@ -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]+\\)?>"))