diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-16 03:43:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-16 03:43:28 +0000 |
| commit | 718b9b2f8285db25d242a3883318617181f69895 (patch) | |
| tree | e4a9faaaa4e1ca3e37e18abcac621590a75c1dbe /lisp/emerge.el | |
| parent | c9fdc5e85efeb8a5339a1b8792d4a2cf82f433a3 (diff) | |
| download | emacs-718b9b2f8285db25d242a3883318617181f69895.tar.gz | |
(emerge-temp-file-prefix): Use system-tmp-directory.
Diffstat (limited to 'lisp/emerge.el')
| -rw-r--r-- | lisp/emerge.el | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lisp/emerge.el b/lisp/emerge.el index 8794ab45e55..d42f8ff2f3e 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -290,16 +290,7 @@ displaying a difference." :group 'emerge) (defcustom emerge-temp-file-prefix - (let ((env (or (getenv "TMPDIR") - (getenv "TMP") - (getenv "TEMP"))) - d) - (setq d (if (and env (> (length env) 0)) - env - "/tmp")) - (if (= (aref d (1- (length d))) ?/) - (setq d (substring d 0 -1))) - (concat d "/emerge")) + (concat system-tmp-directory "/emerge") "*Prefix to put on Emerge temporary file names. Do not start with `~/' or `~user-name/'." :type 'string |