Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
1602 b->annotated = Fpurecopy (Vcurrent_compiled_function_annotation); 1602 b->annotated = Fpurecopy (Vcurrent_compiled_function_annotation);
1603 else if (!NILP (Vload_file_name_internal_the_purecopy)) 1603 else if (!NILP (Vload_file_name_internal_the_purecopy))
1604 b->annotated = Vload_file_name_internal_the_purecopy; 1604 b->annotated = Vload_file_name_internal_the_purecopy;
1605 else if (!NILP (Vload_file_name_internal)) 1605 else if (!NILP (Vload_file_name_internal))
1606 { 1606 {
1607 struct gcpro gcpro1;
1608 GCPRO1(val); /* don't let val or b get reaped */
1607 Vload_file_name_internal_the_purecopy = 1609 Vload_file_name_internal_the_purecopy =
1608 Fpurecopy (Ffile_name_nondirectory (Vload_file_name_internal)); 1610 Fpurecopy (Ffile_name_nondirectory (Vload_file_name_internal));
1609 b->annotated = Vload_file_name_internal_the_purecopy; 1611 b->annotated = Vload_file_name_internal_the_purecopy;
1612 UNGCPRO;
1610 } 1613 }
1611 #endif 1614 #endif
1612 1615
1613 #ifdef I18N3 1616 #ifdef I18N3
1614 if (docp && intp && domp) 1617 if (docp && intp && domp)