procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
using the updated value of temporary-file-directory.
This commit is contained in:
Eli Zaretskii 2002-03-29 14:04:05 +00:00
parent 747981b0cb
commit d88c92eb32
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
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

6
lisp/startup.el
View file

@ -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")))