|
|
@@ -463,14 +463,14 @@ This may be useful when columns have been shrunk."
|
|
|
(when pos (goto-char pos))
|
|
|
(goto-char (line-beginning-position))
|
|
|
(let ((end (line-end-position)) str)
|
|
|
- (backward-char)
|
|
|
+ (goto-char (1- pos))
|
|
|
(while (progn (forward-char 1) (< (point) end))
|
|
|
(let ((ov (car (overlays-at (point)))))
|
|
|
(if (not ov)
|
|
|
(push (char-to-string (char-after)) str)
|
|
|
(push (overlay-get ov 'display) str)
|
|
|
(goto-char (1- (overlay-end ov))))))
|
|
|
- (format "%s" (mapconcat #'identity (reverse str) "")))))
|
|
|
+ (format "|%s" (mapconcat #'identity (reverse str) "")))))
|
|
|
|
|
|
(defvar-local org-table-header-overlay nil)
|
|
|
(defun org-table-header-set-header ()
|
Bastien