diff src/filelock.c @ 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 0a7261c1d487
children fe4ca7eaee87
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);