(command-line): Keep the first regexp of auto-save-file-name-transforms intact.

diff --git a/lisp/startup.el b/lisp/startup.el
index 9192b60971cf1f16abd94476585a357aa952e004..2f0ca4b2c195f03f0c6944633a5a149b496b7bef 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1,6 +1,6 @@
 ;;; startup.el --- process Emacs shell arguments
 
-;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002
+;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 01, 02, 2004
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -575,7 +575,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
        (if (eq system-type 'ms-dos)
            (getenv "TMPDIR")))
   (setq auto-save-file-name-transforms
-       (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
+       (list (list (car (car auto-save-file-name-transforms))
                    ;; Don't put "\\2" inside expand-file-name, since
                    ;; it will be transformed to "/2" on DOS/Windows.
                    (concat temporary-file-directory "\\2") t)))