Browse Source

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

* lisp/org-table.el (org-table-header-set-header): Tiny refactoring.
Bastien 5 years ago
parent
commit
a645fd8043
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-table.el

+ 1 - 1
lisp/org-table.el

@@ -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)))