# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1085778292 0
# Node ID 6fe3d9ff80b9e3964fdc505101930e16c1ad753a
# Parent  c9243f2a022c925c4d0ce1ec713a5633df957ce8
(command-line): Keep the first regexp of auto-save-file-name-transforms intact.

diff -r c9243f2a022c -r 6fe3d9ff80b9 lisp/startup.el
--- a/lisp/startup.el	Fri May 28 21:03:53 2004 +0000
+++ b/lisp/startup.el	Fri May 28 21:04:52 2004 +0000
@@ -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 @@
 	(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)))