[elpa] externals-release/org 4056e11: element: Un-escape code in inline source blocks

[ELPA Syncer]

branch: externals-release/org
commit 4056e11ddcb712e9e65cefdefed407ec197ffedf
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    element: Un-escape code in inline source blocks
    
    * lisp/org-element.el (org-element-inline-src-block-parser): Un-escape
    code in inline source blocks.
    (org-element-inline-src-block-interpreter): Escape it again if
    necessary.
    * testing/lisp/test-org-element.el 
(test-org-element/inline-src-block-parser):
    Add test.
---
 lisp/org-element.el              | 4 ++--
 testing/lisp/test-org-element.el | 5 +++++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 0f0e01e..5eff16f 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -2980,7 +2980,7 @@ Assume point is at the beginning of the inline source 
block."
              (post-blank (skip-chars-forward " \t")))
          (list 'inline-src-block
                (list :language language
-                     :value value
+                     :value (org-unescape-code-in-string value)
                      :parameters parameters
                      :begin begin
                      :end (point)
@@ -2994,7 +2994,7 @@ Assume point is at the beginning of the inline source 
block."
     (format "src_%s%s{%s}"
            language
            (if arguments (format "[%s]" arguments) "")
-           body)))
+           (org-trim (org-escape-code-in-string body)))))
 
 ;;;; Italic
 
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 7870346..db24889 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1288,6 +1288,11 @@ Some other text
    (eq 'inline-src-block
        (org-test-with-temp-text "src_emacs-lisp[:foo\nbar]{(+ 1 1)}"
         (org-element-type (org-element-context)))))
+  ;; Properly un-escape code.
+  (should
+   (equal "(\n* 1 2)"
+          (org-test-with-temp-text "src_emacs-lisp[:foo bar]{(\n,* 1 2)}"
+           (org-element-property :value (org-element-context)))))
   ;; Besides curly brackets, ignore any other bracket type.
   (should
    (equal "[foo"