From 157a0559e5c253ed3e927037292b2c78c32746db Mon Sep 17 00:00:00 2001 From: Raffael Stocker Date: Mon, 17 Jun 2024 21:09:45 +0200 Subject: [PATCH] lisp/org-colview.el: Prevent repeated indentation of keyword lines * org-colview.el (org-columns-dblock-write-default): Left trim keyword and TBLFM lines to prevent repeated indentation. Link: https://list.orgmode.org/orgmode/yplmfrtchs0u.fsf@mnet-mail.de/ TINYCHANGE --- lisp/org-colview.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 961ae0fbe..bc93941e4 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1662,7 +1662,7 @@ definition." ;; Insert affiliated keywords before the table. (when content-lines (while (string-match-p "\\`[ \t]*#\\+" (car content-lines)) - (insert (pop content-lines) "\n"))) + (insert (string-trim-left (pop content-lines)) "\n"))) (save-excursion ;; Insert table at point. (insert @@ -1675,7 +1675,7 @@ definition." (let ((case-fold-search t)) (dolist (line content-lines) (when (string-match-p "\\`[ \t]*#\\+TBLFM:" line) - (insert "\n" line) + (insert "\n" (string-trim-left line)) (unless recalc (setq recalc t)))))) (when recalc (org-table-recalculate 'all t)) (org-table-align)