summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2004-05-19 00:30:43 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2004-05-19 00:30:43 +0000
commitcb03ed6221c2237ca2017e8f50441ed9e3b73401 (patch)
tree8119dbc0fcfb7a78432d4b3fe459613dd1a2d528 /lisp
parent6741066f7dda512ccb6572945923b7cda6e88f32 (diff)
downloademacs-cb03ed6221c2237ca2017e8f50441ed9e3b73401.tar.gz
(auto-save-file-name-transforms): Make sure ange-ftp temp
files files don't contain an accidental additional /.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/files.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 91da8a4c2c7..99cad16cf5b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -293,7 +293,7 @@ Normally auto-save files are written under other names."
:group 'auto-save)
(defcustom 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))