From 624780f09dd117edbe8b2b71be44622fc7002f91 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 25 Nov 2013 20:06:23 -0500 Subject: 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 --- src/ChangeLog | 7 +++++++ src/callproc.c | 8 ++++---- src/epaths.in | 8 ++++---- 3 files changed, 15 insertions(+), 8 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index bf4392d519d..9a32c174d8f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2013-11-26 Glenn Morris + + Preload leim-list.el. + * epaths.in (PATH_DUMPLOADSEARCH): Add leim/. + * callproc.c (init_callproc): Don't assume PATH_DUMPLOADSEARCH + is a single directory. + 2013-11-25 Paul Eggert bool-vector-subsetp is now the normal direction (Bug#15912). 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) if (data_dir == 0) { Lisp_Object tem, tem1, srcdir; + Lisp_Object lispdir = Fcar (decode_env_path (0, PATH_DUMPLOADSEARCH, 0)); + + srcdir = Fexpand_file_name (build_string ("../src/"), lispdir); - srcdir = Fexpand_file_name (build_string ("../src/"), - build_unibyte_string (PATH_DUMPLOADSEARCH)); tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory); tem1 = Ffile_exists_p (tem); if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1)) { Lisp_Object newdir; - newdir = Fexpand_file_name (build_string ("../etc/"), - build_unibyte_string (PATH_DUMPLOADSEARCH)); + newdir = Fexpand_file_name (build_string ("../etc/"), lispdir); tem = Fexpand_file_name (build_string ("GNU"), newdir); tem1 = Ffile_exists_p (tem); if (!NILP (tem1)) diff --git a/src/epaths.in b/src/epaths.in index 1f5701e5337..02e755935c4 100644 --- a/src/epaths.in +++ b/src/epaths.in @@ -1,7 +1,6 @@ /* Hey Emacs, this is -*- C -*- code! */ /* -Copyright (C) 1993, 1995, 1997, 1999, 2001-2013 Free Software -Foundation, Inc. +Copyright (C) 1993, 1995, 1997, 1999, 2001-2013 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -42,9 +41,10 @@ along with GNU Emacs. If not, see . */ /* Like PATH_LOADSEARCH, but used only during the build process when Emacs is dumping. Configure (using "make epaths-force") sets - this to $buildlisppath, which normally has the value: /lisp. + this to $buildlisppath, which normally has the value: + /lisp:/leim. */ -#define PATH_DUMPLOADSEARCH "../lisp" +#define PATH_DUMPLOADSEARCH "../lisp:../leim" /* The extra search path for programs to invoke. This is appended to whatever the PATH environment variable says to set the Lisp -- cgit v1.2.1