diff options
| author | Glenn Morris | 2013-11-25 20:06:23 -0500 |
|---|---|---|
| committer | Glenn Morris | 2013-11-25 20:06:23 -0500 |
| commit | 624780f09dd117edbe8b2b71be44622fc7002f91 (patch) | |
| tree | 268725fa70a8295b1c621646a7ad82eea11176f1 /src/callproc.c | |
| parent | 3f73284a46437b46bbd79f2594c3bcefde83a2e8 (diff) | |
| download | emacs-624780f09dd117edbe8b2b71be44622fc7002f91.tar.gz emacs-624780f09dd117edbe8b2b71be44622fc7002f91.zip | |
Preload leim-list.el
* Makefile.in (abs_builddir): New, set by configure.
(buildlisppath): Add leim/.
(epaths-force-w32): Set BLD.
* lisp/loadup.el: Load leim-list.el when found.
* lisp/startup.el (normal-top-level): Skip re-loading leim/leim-list.el.
* nt/epaths.nt (PATH_DUMPLOADSEARCH): Add leim/.
* src/callproc.c (init_callproc): Don't assume PATH_DUMPLOADSEARCH
is a single directory.
* src/epaths.in (PATH_DUMPLOADSEARCH): Add leim/.
Fixes: debbugs:4789
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/callproc.c b/src/callproc.c index dfe315ab8db..b44f680b352 100644 --- a/src/callproc.c +++ b/src/callproc.c | |||
| @@ -1607,16 +1607,16 @@ init_callproc (void) | |||
| 1607 | if (data_dir == 0) | 1607 | if (data_dir == 0) |
| 1608 | { | 1608 | { |
| 1609 | Lisp_Object tem, tem1, srcdir; | 1609 | Lisp_Object tem, tem1, srcdir; |
| 1610 | Lisp_Object lispdir = Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH, 0)); | ||
| 1611 | |||
| 1612 | srcdir = Fexpand_file_name (build_string ("../src/"), lispdir); | ||
| 1610 | 1613 | ||
| 1611 | srcdir = Fexpand_file_name (build_string ("../src/"), | ||
| 1612 | build_unibyte_string (PATH_DUMPLOADSEARCH)); | ||
| 1613 | tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory); | 1614 | tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory); |
| 1614 | tem1 = Ffile_exists_p (tem); | 1615 | tem1 = Ffile_exists_p (tem); |
| 1615 | if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1)) | 1616 | if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1)) |
| 1616 | { | 1617 | { |
| 1617 | Lisp_Object newdir; | 1618 | Lisp_Object newdir; |
| 1618 | newdir = Fexpand_file_name (build_string ("../etc/"), | 1619 | newdir = Fexpand_file_name (build_string ("../etc/"), lispdir); |
| 1619 | build_unibyte_string (PATH_DUMPLOADSEARCH)); | ||
| 1620 | tem = Fexpand_file_name (build_string ("GNU"), newdir); | 1620 | tem = Fexpand_file_name (build_string ("GNU"), newdir); |
| 1621 | tem1 = Ffile_exists_p (tem); | 1621 | tem1 = Ffile_exists_p (tem); |
| 1622 | if (!NILP (tem1)) | 1622 | if (!NILP (tem1)) |