From fa8c4a38fd2d23d330a01ec56c85020e720f0732 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 7 Feb 2009 21:56:47 +0000 Subject: [PATCH] (ps-run-tmp-dir): Doc fix. (ps-run-make-tmp-filename): Use temporary-file-directory. --- lisp/progmodes/ps-mode.el | 27 ++++----------------------- 1 file changed, 4 insertions(+), 23 deletions(-) diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 0c60b05d1d1..160907d39b5 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -181,12 +181,7 @@ You won't need to set this option for Ghostscript." (defcustom ps-run-tmp-dir nil "*Name of directory to place temporary file. - -If nil, the following are tried in turn, until success: - 1. \"$TEMP\" - 2. \"$TMP\" - 3. \"$HOME/tmp\" - 4. \"/tmp\"" +If nil, use `temporary-file-directory'." :group 'PostScript-interaction :type '(choice (const nil) directory)) @@ -1124,24 +1119,10 @@ grestore (defun ps-run-make-tmp-filename () (unless ps-mode-tmp-file - (cond (ps-run-tmp-dir) - ((setq ps-run-tmp-dir (getenv "TEMP"))) - ((setq ps-run-tmp-dir (getenv "TMP"))) - ((setq ps-run-tmp-dir (getenv "HOME")) - (setq - ps-run-tmp-dir - (concat (file-name-as-directory ps-run-tmp-dir) "tmp")) - (unless (file-directory-p ps-run-tmp-dir) - (setq ps-run-tmp-dir nil)))) - (unless ps-run-tmp-dir - (setq ps-run-tmp-dir "/tmp")) (setq ps-mode-tmp-file - (make-temp-file - (concat - (if ps-run-tmp-dir - (file-name-as-directory ps-run-tmp-dir) - "") - "ps-run-")))) + (let ((temporary-file-directory (or ps-run-tmp-dir + temporary-file-directory))) + (make-temp-file "ps-run-")))) ps-mode-tmp-file) ;; Remove temporary file -- 2.39.5