mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

org-table.el: Fix `org-table-set-header-line-format'

Browse source 
* lisp/org-table.el (org-table-set-header-line-format): Skip
non-data rows correctly.
This commit is contained in:
Bastien 2020-02-03 10:05:52 +01:00
parent 06d36ee60b
commit a557cfcfc6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-table.el
View file

@ -492,7 +492,7 @@ existing value of `header-line-format' we might want to restore."
(tbeg (save-excursion
(goto-char beg)
(while (or (org-at-table-hline-p)
(looking-at-p ".*|\\s-+<[0-9]+>"))
(looking-at-p ".*|\\s-+<[rcl]?\\([0-9]+\\)?>"))
(move-beginning-of-line 2))
(point))))
(if (< tbeg (save-excursion (move-to-window-line 0) (point)))