diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2002-03-29 14:04:05 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2002-03-29 14:04:05 +0000 |
| commit | d88c92eb325c8ced8b2dac9f08d8a52bbbd573e3 (patch) | |
| tree | e6f5487c011f9616ae80c6bb762eff14c4fd39d4 /lisp/startup.el | |
| parent | 747981b0cbc8f3b1fc7488d2817bda205a8c72a7 (diff) | |
| download | emacs-d88c92eb325c8ced8b2dac9f08d8a52bbbd573e3.tar.gz | |
(command-line): Recompute auto-save-file-name-transforms
using the updated value of temporary-file-directory.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index dd13f1ede3e..bff519156c3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -653,6 +653,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (setq small-temporary-file-directory (if (eq system-type 'ms-dos) (getenv "TMPDIR"))) + (setq auto-save-file-name-transforms + (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" + ;; Don't put "\\2" inside expand-file-name, since + ;; it will be transformed to "/2" on DOS/Windows. + (concat (expand-file-name temporary-file-directory) + "\\2")))) ;; See if we should import version-control from the environment variable. (let ((vc (getenv "VERSION_CONTROL"))) |