Mercurial > emacs

comparison lisp/startup.el @ 25485:d862057a6c14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Compute the value of small-temporary-file-directory.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 02 Sep 1999 12:30:24 +0000
parents de7cab1fe991
children cf5a6d4a09f1
comparison
equal deleted inserted replaced
25484:a8383dbd7250 25485:d862057a6c14
502 (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) 502 (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp"))
503 ((memq system-type '(vax-vms axp-vms)) 503 ((memq system-type '(vax-vms axp-vms))
504 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) 504 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:"))
505 (t 505 (t
506 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp"))))) 506 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))))
507 (setq small-temporary-file-directory
508 (if (eq system-type 'ms-dos)
509 (getenv "TMPDIR")
510 temporary-file-directory))
507 511
508 ;; See if we should import version-control from the environment variable. 512 ;; See if we should import version-control from the environment variable.
509 (let ((vc (getenv "VERSION_CONTROL"))) 513 (let ((vc (getenv "VERSION_CONTROL")))
510 (cond ((eq vc nil)) ;don't do anything if not set 514 (cond ((eq vc nil)) ;don't do anything if not set
511 ((or (string= vc "t") 515 ((or (string= vc "t")