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

diff --git a/lisp/files.el b/lisp/files.el
index c90e75f934b098c560b17788156e003089565e3f..c771cf01bc1f53fed194d60ae77333ee7bb99ac6 100644 (file)
--- 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.