Prechádzať zdrojové kódy

ob-exp: Small fix

* lisp/ob-exp.el (org-babel-exp-src-block): Use `symbol-name' instead of
  `eval' since the argument is a dynamically scoped variable anyhow.
Nicolas Goaziou 8 rokov pred
rodič
commit
8860c92f62
1 zmenil súbory, kde vykonal 8 pridanie a 7 odobranie
  1. 8 7
      lisp/ob-exp.el

+ 8 - 7
lisp/ob-exp.el

@@ -95,13 +95,14 @@ Assume point is at block opening line."
 	  (let ((lang-headers (intern (concat "org-babel-default-header-args:"
 					      lang))))
 	    (org-babel-exp--at-source
-	     (setf (nth 2 info)
-		   (org-babel-process-params
-		    (apply #'org-babel-merge-params
-			   org-babel-default-header-args
-			   (and (boundp lang-headers) (eval lang-headers t))
-			   (append (org-babel-params-from-properties lang)
-				   (list raw-params)))))))
+		(setf (nth 2 info)
+		      (org-babel-process-params
+		       (apply #'org-babel-merge-params
+			      org-babel-default-header-args
+			      (and (boundp lang-headers)
+				   (symbol-value lang-headers))
+			      (append (org-babel-params-from-properties lang)
+				      (list raw-params)))))))
 	  (setf hash (org-babel-sha1-hash info)))
 	(org-babel-exp-do-export info 'block hash)))))