Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d88c92eb
Commit
d88c92eb
authored
Mar 29, 2002
by
Eli Zaretskii
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(command-line): Recompute auto-save-file-name-transforms
using the updated value of temporary-file-directory.
parent
747981b0
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
0 deletions
+14
-0
lisp/ChangeLog
lisp/ChangeLog
+8
-0
lisp/startup.el
lisp/startup.el
+6
-0
No files found.
lisp/ChangeLog
View file @
d88c92eb
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
...
...
lisp/startup.el
View file @
d88c92eb
...
...
@@ -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"
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment