diff options
author | Bastien <bzg@gnu.org> | 2020-02-11 14:40:17 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-11 14:40:17 +0100 |
commit | 20ab65482ac6564995fdb236e3754f1cb69f3e06 (patch) | |
tree | c266a98bf66c5c605dc26337f3ba3197ddc72ee6 | |
parent | 9447287521fe9af579ada503e7efc094a3b15f5c (diff) | |
parent | 713c8d5abaa62e11c2e7ba6afd35b8dc059b7bd4 (diff) | |
download | org-mode-20ab65482ac6564995fdb236e3754f1cb69f3e06.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/ob-core.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 1a01221..fcfc052 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2720,11 +2720,12 @@ block but are passed literally to the \"example-block\"." (lambda (s) ;; Comment string S, according to LANG mode. Return new ;; string. - (with-temp-buffer - (funcall (org-src-get-lang-mode lang)) - (comment-region (point) - (progn (insert s) (point))) - (org-trim (buffer-string))))) + (unless org-babel-tangle-uncomment-comments + (with-temp-buffer + (funcall (org-src-get-lang-mode lang)) + (comment-region (point) + (progn (insert s) (point))) + (org-trim (buffer-string)))))) (expand-body (lambda (i) ;; Expand body of code represented by block info I. |