From 64bcea6277fa4d90ec9044567b2e7897e03faae2 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 30 Mar 2002 07:57:05 +0000 Subject: [PATCH] (command-line): Fix last change. --- lisp/ChangeLog | 6 ++++++ lisp/startup.el | 3 +-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fd45314b2af..5eb90df9ac7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-03-30 Eli Zaretskii + + * files.el (auto-save-file-name-transforms): Fix last change. + + * startup.el (command-line): Fix last change. + 2002-03-29 Richard M. Stallman * subr.el (play-sound-file): Moved to simple.el. diff --git a/lisp/startup.el b/lisp/startup.el index bff519156c3..2a3ae710c6a 100644 --- 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"))) -- 2.39.2