mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(emerge-temp-file-prefix): Use system-tmp-directory.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-05-16 03:43:28 +00:00
parent 4a37a5df9e
commit e4244d3124
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emerge.el
View File

@ -290,16 +290,7 @@ displaying a difference."
:group 'emerge)
(defcustom emerge-temp-file-prefix
(let ((env (or (getenv "TMPDIR")
(getenv "TMP")
(getenv "TEMP")))
d)
(setq d (if (and env (> (length env) 0))
env
"/tmp"))
(if (= (aref d (1- (length d))) ?/)
(setq d (substring d 0 -1)))
(concat d "/emerge"))
(concat system-tmp-directory "/emerge")
"*Prefix to put on Emerge temporary file names.
Do not start with `~/' or `~user-name/'."
:type 'string