[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org d7cae14953: Merge branch 'bugfix'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org d7cae14953: Merge branch 'bugfix' |
Date: |
Thu, 31 Mar 2022 11:57:44 -0400 (EDT) |
branch: externals/org
commit d7cae14953894cd1540026f238082dae9fbe74ef
Merge: 971eb6885e 64ee5c2c47
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>
Merge branch 'bugfix'
---
lisp/org-table.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 293e7a918e..2f31bef560 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -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 ()