From f1d367aa475ce0004972e50fc2cdcfdaa4bd8852 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 16 May 2000 11:14:18 +0000 Subject: [PATCH] (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. --- src/filelock.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/filelock.c b/src/filelock.c index 02b3ccc8b05..71fa7867cf0 100644 --- a/src/filelock.c +++ b/src/filelock.c @@ -203,9 +203,15 @@ get_boot_time () 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; -- 2.39.5