mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

(openp): Prevent temporary string passed to

Browse source 
Ffile_readable_p from being garbage collected.
This commit is contained in:
Gerd Moellmann 2000-08-29 10:37:38 +00:00
parent 7bc3ff7943
commit ace46dfee3
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lread.c
View file

@ -900,9 +900,12 @@ openp (path, str, suffix, storeptr, exec_only)
int want_size;
Lisp_Object filename;
struct stat st;
struct gcpro gcpro1;
struct gcpro gcpro1, gcpro2;
Lisp_Object string;
GCPRO1 (str);
string = Qnil;
GCPRO2 (str, string);
if (storeptr)
*storeptr = Qnil;
@ -967,7 +970,6 @@ openp (path, str, suffix, storeptr, exec_only)
handler = Ffind_file_name_handler (filename, Qfile_exists_p);
if (! NILP (handler) && ! exec_only)
{
Lisp_Object string;
int exists;
string = build_string (fn);