comparison lisp/files.el @ 41343:54db34b4f62c

* files.el (auto-save-file-name-transforms): Put remote files in temporary-file-directory rather than /tmp.
author Kai Großjohann <kgrossjo@eu.uu.net>
date Wed, 21 Nov 2001 08:32:57 +0000
parents f1ec73203c1a
children 020268dd7153
comparison
equal deleted inserted replaced
41342:141366cdb544 41343:54db34b4f62c
284 Normally auto-save files are written under other names." 284 Normally auto-save files are written under other names."
285 :type 'boolean 285 :type 'boolean
286 :group 'auto-save) 286 :group 'auto-save)
287 287
288 (defcustom auto-save-file-name-transforms 288 (defcustom auto-save-file-name-transforms
289 '(("\\`/[^/]*:\\(.+/\\)*\\(.*\\)" "/tmp/\\2")) 289 `(("\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
290 ,(expand-file-name "\\2" temporary-file-directory)))
290 "*Transforms to apply to buffer file name before making auto-save file name. 291 "*Transforms to apply to buffer file name before making auto-save file name.
291 Each transform is a list (REGEXP REPLACEMENT): 292 Each transform is a list (REGEXP REPLACEMENT):
292 REGEXP is a regular expression to match against the file name. 293 REGEXP is a regular expression to match against the file name.
293 If it matches, `replace-match' is used to replace the 294 If it matches, `replace-match' is used to replace the
294 matching part with REPLACEMENT. 295 matching part with REPLACEMENT.
295 All the transforms in the list are tried, in the order they are listed. 296 All the transforms in the list are tried, in the order they are listed.
296 When one transform applies, its result is final; 297 When one transform applies, its result is final;
297 no further transforms are tried. 298 no further transforms are tried.
298 299
299 The default value is set up to put the auto-save file into `/tmp' 300 The default value is set up to put the auto-save file into the
300 for editing a remote file." 301 temporary directory (see the variable `temporary-file-directory') for
302 editing a remote file."
301 :group 'auto-save 303 :group 'auto-save
302 :type '(repeat (list (string :tag "Regexp") (string :tag "Replacement"))) 304 :type '(repeat (list (string :tag "Regexp") (string :tag "Replacement")))
303 :version "21.1") 305 :version "21.1")
304 306
305 (defcustom save-abbrevs t 307 (defcustom save-abbrevs t