Mercurial > hg > xemacs-beta

diff src/alloc.c @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents d620409f5eb8
children 131b0175ea99
line wrap: on
line diff
--- a/src/alloc.c	Mon Aug 13 08:55:32 2007 +0200
+++ b/src/alloc.c	Mon Aug 13 08:56:04 2007 +0200
@@ -1604,9 +1604,12 @@
       b->annotated = Vload_file_name_internal_the_purecopy;
     else if (!NILP (Vload_file_name_internal))
       {
+	struct gcpro gcpro1;
+	GCPRO1(val);		/* don't let val or b get reaped */
 	Vload_file_name_internal_the_purecopy =
 	  Fpurecopy (Ffile_name_nondirectory (Vload_file_name_internal));
 	b->annotated = Vload_file_name_internal_the_purecopy;
+	UNGCPRO;
       }
 #endif