mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(get_boot_time): To obtain an 8 char file name, which

Browse source 
is needed on mescaline, use a 2 char prefix, and call
make_temp_name with second arg non-zero.
This commit is contained in:
Gerd Moellmann 2000-05-16 11:14:18 +00:00
parent f9bbcfac50
commit f1d367aa47
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/filelock.c
View file

@ -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;