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 :