瀏覽代碼

babel: Make temp file names consistent

	* ob-python.el (org-babel-python-evaluate-session):
	Make temp file names consistent

	* ob-octave.el (org-babel-octave-evaluate-external-process):
	Make temp file names consistent

	* ob-clojure.el (org-babel-clojure-evaluate-external-process):
	Make temp file names consistent
Dan Davison 14 年之前
父節點
當前提交
c33c313ee1
共有 3 個文件被更改,包括 3 次插入3 次删除
  1. 1 1
      lisp/ob-clojure.el
  2. 1 1
      lisp/ob-octave.el
  3. 1 1
      lisp/ob-python.el

+ 1 - 1
lisp/ob-clojure.el

@@ -261,7 +261,7 @@ repl buffer."
 				       " "))))
     (case result-type
       (output (org-babel-eval cmd body))
-      (value (let* ((tmp-file (org-babel-temp-file "clojure-results-")))
+      (value (let* ((tmp-file (org-babel-temp-file "clojure-")))
 	       (org-babel-eval
 		cmd
 		(format

+ 1 - 1
lisp/ob-octave.el

@@ -178,7 +178,7 @@ value of the last statement in BODY, as elisp."
 	       org-babel-octave-shell-command)))
     (case result-type
       (output (org-babel-eval cmd body))
-      (value (let ((tmp-file (org-babel-temp-file "results-")))
+      (value (let ((tmp-file (org-babel-temp-file "octave-")))
 	       (org-babel-eval
 		cmd
 		(format org-babel-octave-wrapper-method body

+ 1 - 1
lisp/ob-python.el

@@ -267,7 +267,7 @@ last statement in BODY, as elisp."
 	  (if (or (member "code" result-params) (member "pp" result-params))
 	      results
 	    (org-babel-python-table-or-string results)))
-	(let ((tmp-file (org-babel-temp-file "python-results-")))
+	(let ((tmp-file (org-babel-temp-file "python-")))
 	  (org-babel-comint-with-output
 	      (session org-babel-python-eoe-indicator t body)
 	    (let ((comint-process-echoes nil))