From: Eli Zaretskii Date: Sat, 30 Mar 2002 07:57:05 +0000 (+0000) Subject: (command-line): Fix last change. X-Git-Tag: ttn-vms-21-2-B4~15895 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64bcea6277fa4d90ec9044567b2e7897e03faae2;p=emacs.git (command-line): Fix last change. --- 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")))