Browse Source

Merge branch 'maint'

Bastien 5 years ago
parent
commit
20ab65482a
1 changed files with 6 additions and 5 deletions
  1. 6 5
      lisp/ob-core.el

+ 6 - 5
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.