# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 849993747 0
# Node ID b337bd6428561e2ec546bad22b0166b0090904c2
# Parent  a3345c8d1779e5d3c45917c4d2552d12b5768e33
(jka-compr-temp-name-template): Initialize using TMPDIR.

diff -r a3345c8d1779 -r b337bd642856 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sat Dec 07 21:20:10 1996 +0000
+++ b/lisp/jka-compr.el	Sat Dec 07 21:22:27 1996 +0000
@@ -316,7 +316,8 @@
 ;;; from ange-ftp.
 
 (defvar jka-compr-temp-name-template
-  "/tmp/jka-com"
+  (expand-file-name "jka-com"
+		    (or (getenv "TMPDIR") "/tmp/"))
   "Prefix added to all temp files created by jka-compr.
 There should be no more than seven characters after the final `/'")