653 |
(setq small-temporary-file-directory |
(setq small-temporary-file-directory |
654 |
(if (eq system-type 'ms-dos) |
(if (eq system-type 'ms-dos) |
655 |
(getenv "TMPDIR"))) |
(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")))) |
662 |
|
|
663 |
;; See if we should import version-control from the environment variable. |
;; See if we should import version-control from the environment variable. |
664 |
(let ((vc (getenv "VERSION_CONTROL"))) |
(let ((vc (getenv "VERSION_CONTROL"))) |