(command-line): Fix last change.

lisp/ChangeLog

+2002-03-30  Eli Zaretskii  <eliz@gnu.org>
+
+	* files.el (auto-save-file-name-transforms): Fix last change.
+
+	* startup.el (command-line): Fix last change.
+
 2002-03-29  Richard M. Stallman  <rms@gnu.org>
 
 	* subr.el (play-sound-file): Moved to simple.el.

lisp/startup.el

@@ -657,8 +657,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 	(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"))))
+		    (concat temporary-file-directory "\\2"))))
 
   ;; See if we should import version-control from the environment variable.
   (let ((vc (getenv "VERSION_CONTROL")))