[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 058339d: org-table.el: Fix a bug when displ
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 058339d: org-table.el: Fix a bug when displaying a table header |
Date: |
Mon, 26 Apr 2021 15:57:09 -0400 (EDT) |
branch: externals-release/org
commit 058339d6e672279439a3f8d4e5c57996b65f7f63
Author: Bastien Guerry <bzg@gnu.org>
Commit: Bastien Guerry <bzg@gnu.org>
org-table.el: Fix a bug when displaying a table header
* lisp/org-table.el (org-table-row-get-visible-string): Fix wrong
beginning of the header string.
(org-table-header-set-header): Get the real beginning of the line.
Reported-by: "Oorja Sandhu" <oorja.sandhu@inoutbox.com>
Link:
https://orgmode.org/list/7beea3b5-6fe5-4ba6-831e-19a88d87de6b@www.fastmail.com/
---
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 5fabaee..a6bc254 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals-release/org 058339d: org-table.el: Fix a bug when displaying a table header,
ELPA Syncer <=