(auto-save-file-name-transforms): Put remote files in

temporary-file-directory rather than /tmp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a61f0fed36e8676b4d2be79dd8b87e617ec1287..dc7afa07dc2688ce7e659a9313198eba34fd93d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,11 @@
 
        * international/encoded-kb.el: Don't alter minor-mode-alist.
 
+2001-11-20  Kai Grossjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+        * files.el (auto-save-file-name-transforms): Put remote files in
+        temporary-file-directory rather than /tmp.
+
 2001-11-20  Stefan Monnier  <monnier@cs.yale.edu>
 
        * progmodes/tcl.el (tcl-indent-for-comment): Handle the case where
@@ -14,11 +19,9 @@
 
 2001-11-20  Eli Zaretskii  <eliz@is.elta.co.il>
 
-       * play/landmark.el: Mark lm-mode as special.  Suggested by Klaus
-       Straubinger <ksnetz@arcor.de>.
+       * play/landmark.el: Mark lm-mode as special.
 
-       * play/gomoku.el: Mark gomoku-mode as special.  Suggested by Klaus
-       Straubinger <ksnetz@arcor.de>.
+       * play/gomoku.el: Mark gomoku-mode as special.
 
 2001-11-20  Stefan Monnier  <monnier@cs.yale.edu>
 

diff --git a/lisp/files.el b/lisp/files.el
index 517a7590f37432ea08237164b0975c61a7d45f90..c6b522633f69a352e8c7077ce314e953e00b21c9 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -282,7 +282,8 @@ Normally auto-save files are written under other names."
   :group 'auto-save)
 
 (defcustom auto-save-file-name-transforms
-  '(("\\`/[^/]*:\\(.+/\\)*\\(.*\\)" "/tmp/\\2"))
+  `(("\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
+     ,(expand-file-name "\\2" temporary-file-directory)))
   "*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.
@@ -292,8 +293,9 @@ All the transforms in the list are tried, in the order they are listed.
 When one transform applies, its result is final;
 no further transforms are tried.
 
-The default value is set up to put the auto-save file into `/tmp'
-for editing a remote file."
+The default value is set up to put the auto-save file into the
+temporary directory (see the variable `temporary-file-directory') for
+editing a remote file."
   :group 'auto-save
   :type '(repeat (list (string :tag "Regexp") (string :tag "Replacement")))
   :version "21.1")