Mercurial > emacs
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 |