Mercurial > emacs
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 |