From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 29 Mar 2002 14:02:54 +0000 (+0000)
Subject: (auto-save-file-name-transforms): Don't run "\\2" via expand-file-name.
X-Git-Tag: ttn-vms-21-2-B4~15914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=747981b0cbc8f3b1fc7488d2817bda205a8c72a7;p=emacs.git

(auto-save-file-name-transforms): Don't run "\\2" via expand-file-name.
---

diff --git a/lisp/files.el b/lisp/files.el
index c90e75f934b..c771cf01bc1 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -294,7 +294,9 @@ Normally auto-save files are written under other names."
 
 (defcustom auto-save-file-name-transforms
   `(("\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
-     ,(expand-file-name "\\2" temporary-file-directory)))
+     ;; 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")))
   "*Transforms to apply to buffer file name before making auto-save file name.
 Each transform is a list (REGEXP REPLACEMENT):
 REGEXP is a regular expression to match against the file name.