From 03334c493fec07d0571dc9298ce11d96fd8ba185 Mon Sep 17 00:00:00 2001 From: Alexander Adolf Date: Tue, 23 Apr 2024 17:43:08 +0200 Subject: [PATCH 3/3] lisp/org-colview.el: Move cleanup code to cleanup function * lisp/org-colview.el (org-columns--clean-item): Additionally process the result with `org-quote-vert'. (org-columns--capture-view): Remove call to `org-quote-vert'. `org-columns--clean-item' is used when formatting and inserting column view dynamic blocks. By moving the call to `org-quote-vert' to this function, it can be used by all formatting functions, including user-supplied ones, to format content to be safe for inclusion in a table. --- lisp/org-colview.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 64ed8c16a..e934ae67a 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1467,11 +1467,10 @@ the columns according to FORMAT." (dotimes (i columns) (let* ((col (+ (line-beginning-position) i)) (p (get-char-property col 'org-columns-key))) - (push (org-quote-vert - (get-char-property col - (if (string= p "ITEM") - 'org-columns-value - 'org-columns-value-modified))) + (push (get-char-property col + (if (string= p "ITEM") + 'org-columns-value + 'org-columns-value-modified)) row))) (unless (or (and skip-empty @@ -1503,7 +1502,9 @@ an inline src-block." '(footnote-reference inline-babel-call inline-src-block target radio-target statistics-cookie) #'org-element-extract) - (org-no-properties (org-element-interpret-data data)))) + (org-quote-vert + (org-no-properties + (org-element-interpret-data data))))) ;;;###autoload (defun org-dblock-write:columnview (params) -- 2.39.3 (Apple Git-146)