Lines 629-634
Link Here
|
629 |
(setq small-temporary-file-directory |
629 |
(setq small-temporary-file-directory |
630 |
(if (eq system-type 'ms-dos) |
630 |
(if (eq system-type 'ms-dos) |
631 |
(getenv "TMPDIR"))) |
631 |
(getenv "TMPDIR"))) |
|
|
632 |
(setq auto-save-file-name-transforms |
633 |
(list (list (caar auto-save-file-name-transforms) |
634 |
(expand-file-name "\\2" temporary-file-directory)))) |
632 |
|
635 |
|
633 |
;; See if we should import version-control from the environment variable. |
636 |
;; See if we should import version-control from the environment variable. |
634 |
(let ((vc (getenv "VERSION_CONTROL"))) |
637 |
(let ((vc (getenv "VERSION_CONTROL"))) |