(command-line): Fix last change.

64bcea62 · Eli Zaretskii · b865c14e · 64bcea62 · 64bcea62
Commit 64bcea62 authored Mar 30, 2002 by Eli Zaretskii
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +6 -0

lisp/startup.el lisp/startup.el +1 -2

No files found.
--- a/lisp/ChangeLog
+++ b/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.

--- 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")))