From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Nov 2001 11:56:53 +0000 (+0000)
Subject: (auto-save-file-name-transforms): Put remote files in
X-Git-Tag: emacs-21.2~273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8ed738ed12b586e523402bec64afb0ce5729107;p=emacs.git

(auto-save-file-name-transforms): Put remote files in
temporary-file-directory rather than /tmp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a61f0fed36..dc7afa07dc2 100644
--- 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 517a7590f37..c6b522633f6 100644
--- 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")