Mercurial > hg > xemacs-beta

comparison src/lread.c @ 229:434959a2fba3 r20-5b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b13
author cvs
date Mon, 13 Aug 2007 10:13:02 +0200
parents 41ff10fd062f
children 557eaa0339bf
comparison
equal deleted inserted replaced
228:654d0f3a6a9b 229:434959a2fba3
775 775
776 { 776 {
777 Lisp_Object tem; 777 Lisp_Object tem;
778 /* #### Disgusting kludge */ 778 /* #### Disgusting kludge */
779 /* Run any load-hooks for this file. */ 779 /* Run any load-hooks for this file. */
780 tem = Fassoc (file, Vafter_load_alist); 780 /* #### An even more disgusting kludge. There is horrible code */
781 /* this is relying on the fact that dumped lisp files are found */
782 /* via `load-path' search. */
783 Lisp_Object name = file;
784
785 if (!NILP(Ffile_name_absolute_p(file)))
786 {
787 name = Ffile_name_nondirectory(file);
788 }
789
790 tem = Fassoc (name, Vafter_load_alist);
781 if (!NILP (tem)) 791 if (!NILP (tem))
782 { 792 {
783 struct gcpro ngcpro1; 793 struct gcpro ngcpro1;
784 794
785 NGCPRO1 (tem); 795 NGCPRO1 (tem);