From 7b559d168fcb75d3d86f12f321059fe656c4cac2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 May 1998 03:43:44 +0000 Subject: [PATCH] (jka-compr-temp-name-template): Use system-tmp-directory --- lisp/jka-compr.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 0f02f74df8a..bffa1fc6f02 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -347,11 +347,7 @@ to keep: LEN chars starting BEG chars from the beginning." ;;; from ange-ftp. (defcustom jka-compr-temp-name-template - (expand-file-name "jka-com" - (if (memq system-type '(ms-dos windows-nt)) - (concat (or (getenv "TEMP") (getenv "TMP") "c:/temp") - "/") - (or (getenv "TMPDIR") "/tmp/"))) + (expand-file-name "jka-com" system-tmp-directory) "Prefix added to all temp files created by jka-compr. There should be no more than seven characters after the final `/'." :type 'string -- 2.39.2