Mercurial > emacs
changeset 18530:94c18a43de33
(init_lread): Add leim subdir, like lisp subdir.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Jul 1997 06:20:12 +0000 |
| parents | 8e293f1a19a9 |
| children | 35a263e545b3 |
| files | src/lread.c |
| diffstat | 1 files changed, 18 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Wed Jul 02 04:59:04 1997 +0000 +++ b/src/lread.c Wed Jul 02 06:20:12 1997 +0000 @@ -2502,6 +2502,16 @@ Lisp dirs instead. */ Vload_path = nconc2 (Vload_path, dump_path); + /* Add leim under the installation dir, if it exists. */ + tem = Fexpand_file_name (build_string ("leim"), + Vinstallation_directory); + tem1 = Ffile_exists_p (tem); + if (!NILP (tem1)) + { + if (NILP (Fmember (tem, Vload_path))) + Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + } + /* Add site-list under the installation dir, if it exists. */ tem = Fexpand_file_name (build_string ("site-lisp"), Vinstallation_directory); @@ -2513,9 +2523,8 @@ } /* If Emacs was not built in the source directory, - and it is run from where it was built, - add to load-path - the lisp and site-lisp dirs under the source directory. */ + and it is run from where it was built, add to load-path + the lisp, leim and site-lisp dirs under that directory. */ if (NILP (Fequal (Vinstallation_directory, Vsource_directory))) { @@ -2530,6 +2539,12 @@ if (NILP (Fmember (tem, Vload_path))) Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + tem = Fexpand_file_name (build_string ("leim"), + Vsource_directory); + + if (NILP (Fmember (tem, Vload_path))) + Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + tem = Fexpand_file_name (build_string ("site-lisp"), Vsource_directory);