diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2022-04-17 15:30:39 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2022-04-17 15:30:39 -0400 |
| commit | 65c04e7115f329a083a16a364a8400e1685def61 (patch) | |
| tree | d5df4c7df4c2a20c3f89caf63c723439aae485a8 /lisp/org/org-table.el | |
| parent | c2f94f32b5e8f57e2b4e723c9799cf0e5f5e5bcc (diff) | |
| download | emacs-65c04e7115f329a083a16a364a8400e1685def61.tar.gz emacs-65c04e7115f329a083a16a364a8400e1685def61.tar.bz2 emacs-65c04e7115f329a083a16a364a8400e1685def61.zip | |
Update to Org 9.5.2-38-g682ccd
Diffstat (limited to 'lisp/org/org-table.el')
| -rw-r--r-- | lisp/org/org-table.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index c4daed16656..860fd6e5608 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -462,14 +462,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 () |