Browse Source

babel: adding :no-expand option to code blocks to inhibit body expansion

Eric Schulte 15 năm trước cách đây
mục cha
commit
bc0a6c624d
1 tập tin đã thay đổi với 8 bổ sung5 xóa
  1. 8 5
      contrib/babel/lisp/org-babel-tangle.el

+ 8 - 5
contrib/babel/lisp/org-babel-tangle.el

@@ -187,13 +187,16 @@ code blocks by language."
                   (cons
                    (cons src-lang
                          (cons (list link source-name params
-                                     (funcall
-                                      (intern
-                                       (concat "org-babel-expand-body:" src-lang))
+                                     ((lambda (body)
+                                        (if (assoc :no-expand params)
+                                            body
+                                          (funcall
+                                           (intern (concat "org-babel-expand-body:" src-lang))
+                                           body
+                                           params)))
                                       (if (and (cdr (assoc :noweb params))
                                                (string= "yes" (cdr (assoc :noweb params))))
-                                          (org-babel-expand-noweb-references info) (second info))
-                                      params)
+                                          (org-babel-expand-noweb-references info) (second info)))
                                      (third (cdr (assoc
                                                   src-lang org-babel-tangle-langs))))
                                by-lang)) blocks))))))