Mercurial > emacs
changeset 101894:575496a152c7
(ps-run-tmp-dir): Doc fix.
(ps-run-make-tmp-filename): Use temporary-file-directory.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 07 Feb 2009 21:56:47 +0000 |
| parents | f0b9a6d7b5e4 |
| children | 47c373e3db6c |
| files | lisp/progmodes/ps-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ps-mode.el Sat Feb 07 21:56:37 2009 +0000 +++ b/lisp/progmodes/ps-mode.el Sat Feb 07 21:56:47 2009 +0000 @@ -181,12 +181,7 @@ (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 @@ (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