ob-screen tempfile fixes

* lisp/org/ob-screen.el (org-babel-screen-session-write-temp-file)
(org-babel-screen-test): Use unpredictable names for temporary files.

Fixes: debbugs:17416

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 8a9fc20b4ffa4cade36455730c6f00f8adcf9363..a74388b7d710a27203a5eff6898e207c7581bb2f 100644 (file)
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,9 @@
+2014-05-12  Eric Schulte  <eric.schulte@gmx.com>
+
+       * ob-screen.el (org-babel-screen-session-write-temp-file)
+       (org-babel-screen-test):
+       Use unpredictable names for temporary files.  (Bug#17416)
+
 2014-04-22  Aaron Ecay  <aaronecay@gmail.com>
 
        * org-src.el (org-edit-src-exit): Place an undo boundary before

diff --git a/lisp/org/ob-screen.el b/lisp/org/ob-screen.el
index 2acbbeb718256637db14482c53449f229da04668..1d4ccdddf85f5d7832b21230d43b977240ebaff9 100644 (file)
--- a/lisp/org/ob-screen.el
+++ b/lisp/org/ob-screen.el
@@ -106,7 +106,7 @@ In case you want to use a different screen than one selected by your $PATH")
 
 (defun org-babel-screen-session-write-temp-file (session body)
   "Save BODY in a temp file that is named after SESSION."
-  (let ((tmpfile (concat "/tmp/screen.org-babel-session-" session)))
+  (let ((tmpfile (org-babel-temp-file "screen-")))
     (with-temp-file tmpfile
       (insert body)
 
@@ -121,7 +121,7 @@ The terminal should shortly flicker."
   (interactive)
   (let* ((session "org-babel-testing")
          (random-string (format "%s" (random 99999)))
-         (tmpfile "/tmp/org-babel-screen.test")
+         (tmpfile (org-babel-temp-file "ob-screen-test-"))
          (body (concat "echo '" random-string "' > " tmpfile "\nexit\n"))
          process tmp-string)
     (org-babel-execute:screen body org-babel-default-header-args:screen)