summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-02-11 14:40:17 +0100
committerBastien <bzg@gnu.org>2020-02-11 14:40:17 +0100
commit20ab65482ac6564995fdb236e3754f1cb69f3e06 (patch)
treec266a98bf66c5c605dc26337f3ba3197ddc72ee6
parent9447287521fe9af579ada503e7efc094a3b15f5c (diff)
parent713c8d5abaa62e11c2e7ba6afd35b8dc059b7bd4 (diff)
downloadorg-mode-20ab65482ac6564995fdb236e3754f1cb69f3e06.tar.gz
Merge branch 'maint'
-rw-r--r--lisp/ob-core.el11
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.