mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

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

16
lisp/ediff-init.el
View File

@ -1204,19 +1204,9 @@ Instead, C-h would jump to previous difference."
:group 'ediff)
(defcustom ediff-temp-file-prefix
(let ((env (or (getenv "TMPDIR")
(getenv "TMP")
(getenv "TEMP")))
d)
(setq d (if (and env (> (length env) 0))
env
(cond ((memq system-type '(vax-vms axp-vms)) "SYS$SCRATCH:")
((eq system-type 'ms-dos) "c:/")
(t "/tmp"))))
;; The following is to make sure we get something to which we can
;; add directory levels under VMS.
(setq d (file-name-as-directory (directory-file-name d)))
)
;; The following is to make sure we get something to which we can
;; add directory levels under VMS.
(file-name-as-directory system-tmp-directory)
"*Prefix to put on Ediff temporary file names.
Do not start with `~/' or `~user-name/'."
:type 'string