Browse Source

ob: Rename *org-babel-use-quick-and-dirty-noweb-expansion*

* lisp/ob.el (org-babel-use-quick-and-dirty-noweb-expansion): Renamed
  from *org-babel-use-quick-and-dirty-noweb-expansion*.
(org-babel-expand-noweb-references): Use new variable name.

This patch brings back the variable in the expected namespace.
Nicolas Goaziou 13 năm trước cách đây
mục cha
commit
8783b89311
1 tập tin đã thay đổi với 2 bổ sung2 xóa
  1. 2 2
      lisp/ob.el

+ 2 - 2
lisp/ob.el

@@ -2236,7 +2236,7 @@ parameters when merging lists."
      '(results exports tangle noweb padline cache shebang comments))
      '(results exports tangle noweb padline cache shebang comments))
     params))
     params))
 
 
-(defvar *org-babel-use-quick-and-dirty-noweb-expansion* nil
+(defvar org-babel-use-quick-and-dirty-noweb-expansion nil
   "Set to true to use regular expressions to expand noweb references.
   "Set to true to use regular expressions to expand noweb references.
 This results in much faster noweb reference expansion but does
 This results in much faster noweb reference expansion but does
 not properly allow code blocks to inherit the \":noweb-ref\"
 not properly allow code blocks to inherit the \":noweb-ref\"
@@ -2345,7 +2345,7 @@ block but are passed literally to the \"example-block\"."
 				expansion)
 				expansion)
 			    (save-excursion
 			    (save-excursion
 			      (goto-char (point-min))
 			      (goto-char (point-min))
-			      (if *org-babel-use-quick-and-dirty-noweb-expansion*
+			      (if org-babel-use-quick-and-dirty-noweb-expansion
 				  (while (re-search-forward rx nil t)
 				  (while (re-search-forward rx nil t)
 				    (let* ((i (org-babel-get-src-block-info 'light))
 				    (let* ((i (org-babel-get-src-block-info 'light))
 					   (body (org-babel-expand-noweb-references i))
 					   (body (org-babel-expand-noweb-references i))