From c33c313ee179d95237b7d06e276cbbded6bc9b54 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Wed, 22 Sep 2010 21:52:48 +0100 Subject: [PATCH] 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 --- lisp/ob-clojure.el | 2 +- lisp/ob-octave.el | 2 +- lisp/ob-python.el | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index c90adf25b..43a069ce4 100644 --- a/lisp/ob-clojure.el +++ b/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 diff --git a/lisp/ob-octave.el b/lisp/ob-octave.el index b25ab8a87..59f681954 100644 --- a/lisp/ob-octave.el +++ b/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 diff --git a/lisp/ob-python.el b/lisp/ob-python.el index f73da650d..c17275605 100644 --- a/lisp/ob-python.el +++ b/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))