From 4c01b0deee13808605b05a89e927e67eaf67edbd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jakub=20Je=C4=8Dm=C3=ADnek?= Date: Wed, 21 Jun 2023 15:50:31 +0200 Subject: [PATCH] Fix orgtbl-to-table.el function to include last cell border * lisp/org/org-table.el (orgtbl-to-table.el): Perform character replacement in the temp buffer and fix missing cell border. (Bug#64205) Copyright-paperwork-exempt: yes --- lisp/org/org-table.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 42f234790c5..9a72eb5f314 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -6132,9 +6132,13 @@ supported." (with-temp-buffer (insert (orgtbl-to-orgtbl table params)) (org-table-align) - (replace-regexp-in-string - "-|" "-+" - (replace-regexp-in-string "|-" "+-" (buffer-substring 1 (buffer-size)))))) + (goto-char (point-min)) + (while (search-forward "-|" nil t) + (replace-match "-+")) + (goto-char (point-min)) + (while (search-forward "|-" nil t) + (replace-match "+-")) + (buffer-string))) (defun orgtbl-to-unicode (table params) "Convert the `orgtbl-mode' TABLE into a table with unicode characters. -- 2.39.5