Mercurial > emacs
changeset 25743:e6246adc8a35
(Vtemporary_file_directory): New variable.
(syms_of_filelock): Set up Lisp variable.
(get_boot_time): Make the temp name in the proper dir.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 16 Sep 1999 19:34:38 +0000 |
| parents | 3d91004572f8 |
| children | 8b89b961f7d1 |
| files | src/filelock.c |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/filelock.c Thu Sep 16 19:29:30 1999 +0000 +++ b/src/filelock.c Thu Sep 16 19:34:38 1999 +0000 @@ -61,6 +61,10 @@ extern int errno; #endif +/* The directory for writing temporary files. */ + +Lisp_Object Vtemporary_file_directory; + #ifdef CLASH_DETECTION #include <utmp.h> @@ -195,7 +199,9 @@ if (! NILP (Ffile_exists_p (tempname))) { Lisp_Object args[6]; - tempname = Fmake_temp_name (build_string ("wtmp")); + tempname = Fexpand_file_name (build_string ("wtmp"), + Vtemporary_file_directory); + tempname = Fmake_temp_name (tempname); args[0] = Vshell_file_name; args[1] = Qnil; args[2] = Qnil; @@ -391,7 +397,7 @@ #ifndef index extern char *rindex (), *index (); #endif - int o, p, len, ret; + int len, ret; int local_owner = 0; char *at, *dot, *colon; char *lfinfo = 0; @@ -720,6 +726,10 @@ void syms_of_filelock () { + DEFVAR_LISP ("temporary-file-directory", &Vtemporary_file_directory, + "The directory for writing temporary files."); + Vtemporary_file_directory = Qnil; + defsubr (&Sunlock_buffer); defsubr (&Slock_buffer); defsubr (&Sfile_locked_p);