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 | e4244d3124aa91a9603597c14a8e0d5b7c54512e (patch) | |
| tree | 991ae02830c63989c9125cd9f21cb6208149668d /lisp/emerge.el | |
| parent | 4a37a5df9e59b2d5d0b35449d02159cfdd4e59cb (diff) | |
| download | emacs-e4244d3124aa91a9603597c14a8e0d5b7c54512e.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 |