Mercurial > hg > xemacs-beta

comparison src/lread.c @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children c7528f8e288d
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
574 #endif /* DEBUG_XEMACS */ 574 #endif /* DEBUG_XEMACS */
575 575
576 /* If file name is magic, call the handler. */ 576 /* If file name is magic, call the handler. */
577 handler = Ffind_file_name_handler (file, Qload); 577 handler = Ffind_file_name_handler (file, Qload);
578 if (!NILP (handler)) 578 if (!NILP (handler))
579 RETURN_UNGCPRO (call7 (handler, Qload, file, no_error, nomessage, 579 RETURN_UNGCPRO (call5 (handler, Qload, file, no_error,
580 nosuffix, codesys, used_codesys)); 580 nomessage, nosuffix));
581 581
582 /* Do this after the handler to avoid 582 /* Do this after the handler to avoid
583 the need to gcpro noerror, nomessage and nosuffix. 583 the need to gcpro noerror, nomessage and nosuffix.
584 (Below here, we care only whether they are nil or not.) */ 584 (Below here, we care only whether they are nil or not.) */
585 file = Fsubstitute_in_file_name (file); 585 file = Fsubstitute_in_file_name (file);