diff options
| author | Eric Schulte <eric.schulte@gmx.com> | 2014-05-11 23:09:43 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-05-11 23:09:43 -0700 |
| commit | 45d2587daf5fa76b7a2d077dba56b82e8e2b2ab3 (patch) | |
| tree | d8e3408ee864f59219be8b7fce14a6454c4b125d /lisp/org | |
| parent | 97100b43793e0e123068bd31691659886a066f39 (diff) | |
| download | emacs-45d2587daf5fa76b7a2d077dba56b82e8e2b2ab3.tar.gz | |
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
Diffstat (limited to 'lisp/org')
| -rw-r--r-- | lisp/org/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/org/ob-screen.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 8a9fc20b4ff..a74388b7d71 100644 --- 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 2acbbeb7182..1d4ccdddf85 100644 --- 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) |