emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 29d4cc1: Merge branch 'maint'


From: ELPA Syncer
Subject: [elpa] externals/org 29d4cc1: Merge branch 'maint'
Date: Mon, 26 Apr 2021 15:57:10 -0400 (EDT)

branch: externals/org
commit 29d4cc180251af00c7d5e126ca2673caf91e4eee
Merge: ac3148e 058339d
Author: Bastien Guerry <bzg@gnu.org>
Commit: Bastien Guerry <bzg@gnu.org>

    Merge branch 'maint'
---
 lisp/org-table.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-table.el b/lisp/org-table.el
index c72178e..d4d7fba 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -461,13 +461,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)
       (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 ()
@@ -483,7 +484,7 @@ This may be useful when columns have been shrunk."
                         (while (or (org-at-table-hline-p)
                                    (looking-at-p 
".*|\\s-+<[rcl]?\\([0-9]+\\)?>"))
                           (move-beginning-of-line 2))
-                        (point)))
+                        (line-beginning-position)))
                  (end (save-excursion (goto-char beg) (point-at-eol))))
             (if (pos-visible-in-window-p beg)
                 (when (overlayp org-table-header-overlay)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]