Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site mit-athena.ARPA
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!decvax!mit-athena!martillo
From: martillo@mit-athena.ARPA (Joaquim Martillo)
Newsgroups: net.emacs
Subject: Loading CCAEmacs .elisp_init
Message-ID: <59@mit-athena.ARPA>
Date: Thu, 6-Dec-84 01:48:13 EST
Article-I.D.: mit-athe.59
Posted: Thu Dec  6 01:48:13 1984
Date-Received: Fri, 7-Dec-84 05:58:42 EST
Organization: MIT, Project Athena, Cambridge, Ma.
Lines: 43

A few weeks ago, a fix to get CCAEmacs to load in the  .elisp_init  file
was  posted  to  net.emacs.  The fix only worked if the .elisp_init file
was linked to .elisp_init.l.  If the function stream_given_loadstring is
altered  so  that the code looks something like this, emacs will load in
the .elisp_init file without a link to .elisp_init.l.  In fact,  if  the
full  path  name to a file is fiven, any elisp file could be loaded even
if its name does not terminate in .l.


	if (is_full_pathname(name))
	{ 
		searchlist = ads_cons_protect(Null_String,Nil_Symbol);
		Pop_Elisp_Val;
		goto no_extension;
	} 
	else { 
		searchlist = ads_cons_protect(Null_String,searchlist);  
		Pop_Elisp_Val;
	}  
	

	/* find out whether the filename already has the proper extension */
	/* attached.  If so we set extension to "" */

	acq_sinfo(name,&schars,&slen);
	acq_sinfo(extension,&echars,&elen);

	if (elen >= slen) {
		goto ok_extension;
	}   
	while (elen > 0) {
		if (echars[--elen] != schars[--slen]) { 
			goto ok_extension;
		}   
	}
#if DEBUG    
	fprintf(dbgfp,"Setting extension to blank\n");    
#endif DEBUG    
no_extension:
	extension = Null_String;

ok_extension :