# HG changeset patch # User Eli Zaretskii # Date 1017410607 0 # Node ID abe28f3ccf1c483cf12f2d20e0d39b89b53a76fa # Parent 18a0fcd0705ca02da4384010acfb8eb73fb48eb1 (command-line): Recompute auto-save-file-name-transforms using the updated value of temporary-file-directory. diff -r 18a0fcd0705c -r abe28f3ccf1c lisp/startup.el --- a/lisp/startup.el Fri Mar 29 14:02:54 2002 +0000 +++ b/lisp/startup.el Fri Mar 29 14:03:27 2002 +0000 @@ -653,6 +653,12 @@ (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")))