# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 958475658 0
# Node ID a06e82e2ffc832fc81567e7e1016249816061158
# Parent  f0c08cb8a89cf22d99cb7468dc68a8dd0bdb06b7
(get_boot_time): To obtain an 8 char file name, which
is needed on mescaline, use a 2 char prefix, and call
make_temp_name with second arg non-zero.

diff -r f0c08cb8a89c -r a06e82e2ffc8 src/filelock.c
--- a/src/filelock.c	Mon May 15 22:29:21 2000 +0000
+++ b/src/filelock.c	Tue May 16 11:14:18 2000 +0000
@@ -203,9 +203,15 @@
 	  if (! NILP (Ffile_exists_p (tempname)))
 	    {
 	      Lisp_Object args[6];
-	      tempname = Fexpand_file_name (build_string ("wtmp"),
+
+	      /* The utmp functions on mescaline.gnu.org accept only
+		 file names up to 8 characters long.  Choose a 2
+		 character long prefix, and call make_temp_file with
+		 second arg non-zero, so that it will add not more
+		 than 6 characters to the prefix.  */
+	      tempname = Fexpand_file_name (build_string ("wt"),
 					    Vtemporary_file_directory);
-	      tempname = Fmake_temp_name (tempname);
+	      tempname = make_temp_name (tempname, 1);
 	      args[0] = Vshell_file_name;
 	      args[1] = Qnil;
 	      args[2] = Qnil;