|
@@ -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.
|