tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-table.el (org-table-header-set-header): Tiny refactoring 

* lisp/org-table.el (org-table-header-set-header): Tiny refactoring.
This commit is contained in:
Bastien 2020-02-05 09:06:43 +01:00
parent c2bc481e3d
commit a645fd8043
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

@ -493,7 +493,7 @@ existing value of `header-line-format' we might want to restore."
(looking-at-p ".*|\\s-+<[rcl]?\\([0-9]+\\)?>"))
(move-beginning-of-line 2))
(point))))
(if (< tbeg (save-excursion (move-to-window-line 0) (point)))
(if (not (pos-visible-in-window-p tbeg))
(setq header-line-format
(concat (when (eq scroll-bar-mode 'left)
(propertize " " 'display '(space :width scroll-bar)))