summaryrefslogtreecommitdiff
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
commitb1e5937ca1bb2202e372e2d35122ad10077e5a61 (patch)
tree527c79ba7d02aa94867ec0e9353eb7093982aa2d
parentcc9f53769f6fc1610e748350550d667f8aca9f80 (diff)
downloademacs-b1e5937ca1bb2202e372e2d35122ad10077e5a61.tar.gz
emacs-b1e5937ca1bb2202e372e2d35122ad10077e5a61.tar.bz2
emacs-b1e5937ca1bb2202e372e2d35122ad10077e5a61.zip
(auto-save-file-name-transforms): Make sure ange-ftp temp
files files don't contain an accidental additional /.
-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))