From c8ed738ed12b586e523402bec64afb0ce5729107 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Nov 2001 11:56:53 +0000 Subject: [PATCH] (auto-save-file-name-transforms): Put remote files in temporary-file-directory rather than /tmp. --- lisp/ChangeLog | 11 +++++++---- lisp/files.el | 8 +++++--- 2 files changed, 12 insertions(+), 7 deletions(-) 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 + + * files.el (auto-save-file-name-transforms): Put remote files in + temporary-file-directory rather than /tmp. + 2001-11-20 Stefan Monnier * progmodes/tcl.el (tcl-indent-for-comment): Handle the case where @@ -14,11 +19,9 @@ 2001-11-20 Eli Zaretskii - * play/landmark.el: Mark lm-mode as special. Suggested by Klaus - Straubinger . + * play/landmark.el: Mark lm-mode as special. - * play/gomoku.el: Mark gomoku-mode as special. Suggested by Klaus - Straubinger . + * play/gomoku.el: Mark gomoku-mode as special. 2001-11-20 Stefan Monnier 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") -- 2.39.2