diff options
| author | Richard M. Stallman | 1998-05-16 03:43:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-16 03:43:28 +0000 |
| commit | e4244d3124aa91a9603597c14a8e0d5b7c54512e (patch) | |
| tree | 991ae02830c63989c9125cd9f21cb6208149668d | |
| parent | 4a37a5df9e59b2d5d0b35449d02159cfdd4e59cb (diff) | |
| download | emacs-e4244d3124aa91a9603597c14a8e0d5b7c54512e.tar.gz emacs-e4244d3124aa91a9603597c14a8e0d5b7c54512e.zip | |
(emerge-temp-file-prefix): Use system-tmp-directory.
| -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." | |||
| 290 | :group 'emerge) | 290 | :group 'emerge) |
| 291 | 291 | ||
| 292 | (defcustom emerge-temp-file-prefix | 292 | (defcustom emerge-temp-file-prefix |
| 293 | (let ((env (or (getenv "TMPDIR") | 293 | (concat system-tmp-directory "/emerge") |
| 294 | (getenv "TMP") | ||
| 295 | (getenv "TEMP"))) | ||
| 296 | d) | ||
| 297 | (setq d (if (and env (> (length env) 0)) | ||
| 298 | env | ||
| 299 | "/tmp")) | ||
| 300 | (if (= (aref d (1- (length d))) ?/) | ||
| 301 | (setq d (substring d 0 -1))) | ||
| 302 | (concat d "/emerge")) | ||
| 303 | "*Prefix to put on Emerge temporary file names. | 294 | "*Prefix to put on Emerge temporary file names. |
| 304 | Do not start with `~/' or `~user-name/'." | 295 | Do not start with `~/' or `~user-name/'." |
| 305 | :type 'string | 296 | :type 'string |