Commit d88c92eb authored by Eli Zaretskii's avatar Eli Zaretskii

(command-line): Recompute auto-save-file-name-transforms

using the updated value of temporary-file-directory.
parent 747981b0
2002-03-29 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (auto-save-file-name-transforms): Don't run "\\2" via
expand-file-name.
* startup.el (command-line): Recompute auto-save-file-name-transforms
using the updated value of temporary-file-directory.
2002-03-29 Simon Marshall <simon.marshall@misys.com>
* font-lock.el (save-buffer-state): Use make-symbol to bind
......
......@@ -653,6 +653,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(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")))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment