diff options
Diffstat (limited to 'testing/lisp/test-org-element.el')
| -rw-r--r-- | testing/lisp/test-org-element.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 97d8533eb..29e1af8cd 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -1207,7 +1207,18 @@ e^{i\\pi}+1=0 ;; With arguments. (should (org-test-with-temp-text "{{{macro(arg1,arg2)}}}" - (org-element-map (org-element-parse-buffer) 'macro 'identity)))) + (org-element-map (org-element-parse-buffer) 'macro 'identity))) + ;; Properly handle protected commas in arguments... + (should + (= 2 + (length + (org-test-with-temp-text "{{{macro(arg1\\,arg1,arg2)}}}" + (org-element-property :args (org-element-context)))))) + ;; ... even when last argument ends with a protected comma. + (should + (equal '("C-,") + (org-test-with-temp-text "{{{macro(C-\\,)}}}" + (org-element-property :args (org-element-context)))))) ;;;; Paragraph |