(command-line): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd45314b2af5b24e15978546600193382195833f..5eb90df9ac7a613056fc333b9fa7b438a072c394 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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.

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