From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 28 May 2004 21:04:52 +0000 (+0000)
Subject: (command-line): Keep the first regexp of auto-save-file-name-transforms intact.
X-Git-Tag: ttn-vms-21-2-B4~6039
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a82456f0809885e74aa827d2e98fba1518d6f0af;p=emacs.git

(command-line): Keep the first regexp of auto-save-file-name-transforms intact.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 9192b60971c..2f0ca4b2c19 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1,6 +1,6 @@
 ;;; startup.el --- process Emacs shell arguments
 
-;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002
+;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 01, 02, 2004
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -575,7 +575,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
 	(if (eq system-type 'ms-dos)
 	    (getenv "TMPDIR")))
   (setq auto-save-file-name-transforms
-	(list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
+	(list (list (car (car auto-save-file-name-transforms))
 		    ;; Don't put "\\2" inside expand-file-name, since
 		    ;; it will be transformed to "/2" on DOS/Windows.
 		    (concat temporary-file-directory "\\2") t)))