comparison lisp/jka-compr.el @ 22090:0072d85ea09a

(jka-compr-temp-name-template): Use system-tmp-directory
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 May 1998 03:43:44 +0000
parents 185e8e424ee9
children eb3f36cc775f
comparison
equal deleted inserted replaced
22089:171bb1a9c260 22090:0072d85ea09a
345 345
346 ;;; Support for temp files. Much of this was inspired if not lifted 346 ;;; Support for temp files. Much of this was inspired if not lifted
347 ;;; from ange-ftp. 347 ;;; from ange-ftp.
348 348
349 (defcustom jka-compr-temp-name-template 349 (defcustom jka-compr-temp-name-template
350 (expand-file-name "jka-com" 350 (expand-file-name "jka-com" system-tmp-directory)
351 (if (memq system-type '(ms-dos windows-nt))
352 (concat (or (getenv "TEMP") (getenv "TMP") "c:/temp")
353 "/")
354 (or (getenv "TMPDIR") "/tmp/")))
355 "Prefix added to all temp files created by jka-compr. 351 "Prefix added to all temp files created by jka-compr.
356 There should be no more than seven characters after the final `/'." 352 There should be no more than seven characters after the final `/'."
357 :type 'string 353 :type 'string
358 :group 'jka-compr) 354 :group 'jka-compr)
359 355