From 5f8d6a1075d8d8ef46e4a71aff291281d862a9f0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Sep 1999 19:34:38 +0000 Subject: [PATCH] (Vtemporary_file_directory): New variable. (syms_of_filelock): Set up Lisp variable. (get_boot_time): Make the temp name in the proper dir. --- src/filelock.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/src/filelock.c b/src/filelock.c index 241835221d1..ec3fa3cf48c 100644 --- a/src/filelock.c +++ b/src/filelock.c @@ -61,6 +61,10 @@ Boston, MA 02111-1307, USA. */ extern int errno; #endif +/* The directory for writing temporary files. */ + +Lisp_Object Vtemporary_file_directory; + #ifdef CLASH_DETECTION #include @@ -195,7 +199,9 @@ get_boot_time () 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 @@ current_lock_owner (owner, lfname) #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 @@ init_filelock () 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); -- 2.39.5