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

Fix previous commit

This commit is contained in:
Bastien 2020-02-01 17:34:33 +01:00
parent fbd8aea6d2
commit 2ba8430b93
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-table.el
View File

@ -495,10 +495,12 @@ existing value of `header-line-format' we might want to restore."
beg)))
(if (< tbeg (save-excursion (move-to-window-line 0) (point)))
(setq header-line-format
(concat (propertize " " 'display '(space :width left-fringe))
(when lin (make-string (+ lin 2) 32))
(when pre (make-string pre 32))
(org-table-row-get-visible-string tbeg)))
(propertize
(concat (propertize " " 'display '(space :width left-fringe))
(when lin (make-string (+ lin 2) 32))
(when pre (make-string pre 32))
(org-table-row-get-visible-string tbeg))
'face 'org-table))
(setq header-line-format org-table-temp-header-line)))))
(setq header-line-format org-table-temp-header-line)))