branch: externals/org
commit fbf613ece9989a8d2d50c7430af1e852430b5b1b
Author: Alexander Adolf <alexander.ad...@condition-alpha.com>
Commit: Ihor Radchenko <yanta...@posteo.net>
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 64ed8c16a1..e934ae67af 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)
