Ver código fonte

Fix previous commit

Bastien 5 anos atrás
pai
commit
2ba8430b93
1 arquivos alterados com 6 adições e 4 exclusões
  1. 6 4
      lisp/org-table.el

+ 6 - 4
lisp/org-table.el

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