Mercurial > emacs
changeset 44232:abe28f3ccf1c
(command-line): Recompute auto-save-file-name-transforms
using the updated value of temporary-file-directory.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 29 Mar 2002 14:03:27 +0000 |
| parents | 18a0fcd0705c |
| children | 780f3cdf5aa8 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri Mar 29 14:02:54 2002 +0000 +++ b/lisp/startup.el Fri Mar 29 14:03:27 2002 +0000 @@ -653,6 +653,12 @@ (setq small-temporary-file-directory (if (eq system-type 'ms-dos) (getenv "TMPDIR"))) + (setq auto-save-file-name-transforms + (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)" + ;; Don't put "\\2" inside expand-file-name, since + ;; it will be transformed to "/2" on DOS/Windows. + (concat (expand-file-name temporary-file-directory) + "\\2")))) ;; See if we should import version-control from the environment variable. (let ((vc (getenv "VERSION_CONTROL")))