(command-line): Recompute auto-save-file-name-transforms

using the updated value of temporary-file-directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf3282f35ec4b6b8140b824f2f1d1461d0e30f76..2559eb3dee0d9fae069a5a5514890cc7cf0594ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-03-29  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * files.el (auto-save-file-name-transforms): Don't run "\\2" via
+       expand-file-name.
+
+       * startup.el (command-line): Recompute auto-save-file-name-transforms
+       using the updated value of temporary-file-directory.
+
 2002-03-29  Simon Marshall  <simon.marshall@misys.com>
 
        * font-lock.el (save-buffer-state): Use make-symbol to bind

diff --git a/lisp/startup.el b/lisp/startup.el
index dd13f1ede3efc419eaaff78e1c8f6f3935a460c0..bff519156c319f47cd41e19b08b595dde6db66ca 100644 (file)
--- 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")))