From e4244d3124aa91a9603597c14a8e0d5b7c54512e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 May 1998 03:43:28 +0000 Subject: [PATCH] (emerge-temp-file-prefix): Use system-tmp-directory. --- lisp/emerge.el | 11 +---------- 1 file changed, 1 insertion(+), 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 -- 2.39.2