Mercurial > emacs

comparison lisp/startup.el @ 44232:abe28f3ccf1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Recompute auto-save-file-name-transforms using the updated value of temporary-file-directory.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 29 Mar 2002 14:03:27 +0000
parents c88c10a041e0
children 71d51af13f8a
comparison
equal deleted inserted replaced
44231:18a0fcd0705c 44232:abe28f3ccf1c
651 (t 651 (t
652 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp"))))) 652 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))))
653 (setq small-temporary-file-directory 653 (setq small-temporary-file-directory
654 (if (eq system-type 'ms-dos) 654 (if (eq system-type 'ms-dos)
655 (getenv "TMPDIR"))) 655 (getenv "TMPDIR")))
656 (setq auto-save-file-name-transforms
657 (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
658 ;; Don't put "\\2" inside expand-file-name, since
659 ;; it will be transformed to "/2" on DOS/Windows.
660 (concat (expand-file-name temporary-file-directory)
661 "\\2"))))
656 662
657 ;; See if we should import version-control from the environment variable. 663 ;; See if we should import version-control from the environment variable.
658 (let ((vc (getenv "VERSION_CONTROL"))) 664 (let ((vc (getenv "VERSION_CONTROL")))
659 (cond ((eq vc nil)) ;don't do anything if not set 665 (cond ((eq vc nil)) ;don't do anything if not set
660 ((or (string= vc "t") 666 ((or (string= vc "t")