From 713c8d5abaa62e11c2e7ba6afd35b8dc059b7bd4 Mon Sep 17 00:00:00 2001 From: Bastien Date: Tue, 11 Feb 2020 14:35:30 +0100 Subject: [PATCH] ob-core.el: Respect `org-babel-tangle-uncomment-comments' * lisp/ob-core.el (org-babel-expand-noweb-references): Respect `org-babel-tangle-uncomment-comments'. Thanks to Immanuel Litzroth for reporting this. --- lisp/ob-core.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 651561a20..a6368ad85 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -2764,11 +2764,12 @@ block but are passed literally to the \"example-block\"." (lambda (s) ;; Comment, according to LANG mode, ;; string S. 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 blocked