From 64ee5c2c47e0167f4cd4740a8d57731d30d47b68 Mon Sep 17 00:00:00 2001 From: Bastien Date: Thu, 31 Mar 2022 17:31:50 +0200 Subject: [PATCH] lisp/org-table.el: Fix bug in `org-table-row-get-visible-string' * lisp/org-table.el (org-table-row-get-visible-string): Don't use `backward-char' in a function called in a post-command hook. --- 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 c4daed166..860fd6e56 100644 --- a/lisp/org-table.el +++ b/lisp/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 ()