diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 8 | ||||
| -rw-r--r-- | src/Makefile.in | 4 | ||||
| -rw-r--r-- | src/epaths.in | 8 | ||||
| -rw-r--r-- | src/lread.c | 28 | ||||
| -rw-r--r-- | src/nsterm.m | 10 |
5 files changed, 23 insertions, 35 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index d2dbc187da9..35f0926415c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2013-11-27 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * Makefile.in (leimdir): Now in lisp source directory. | ||
| 4 | ($(leimdir)/leim-list.el): Just use ../leim . | ||
| 5 | * epaths.in (PATH_DUMPLOADSEARCH): | ||
| 6 | * lread.c (load_path_default): | ||
| 7 | * nsterm.m (ns_load_path): No more leim directory. | ||
| 8 | |||
| 1 | 2013-11-26 Andreas Schwab <schwab@suse.de> | 9 | 2013-11-26 Andreas Schwab <schwab@suse.de> |
| 2 | 10 | ||
| 3 | * .gdbinit (xgettype): Add cast. | 11 | * .gdbinit (xgettype): Add cast. |
diff --git a/src/Makefile.in b/src/Makefile.in index dd641e0eb19..bdc79677c86 100644 --- a/src/Makefile.in +++ b/src/Makefile.in | |||
| @@ -52,7 +52,7 @@ lispsource = $(srcdir)/../lisp | |||
| 52 | lib = ../lib | 52 | lib = ../lib |
| 53 | libsrc = ../lib-src | 53 | libsrc = ../lib-src |
| 54 | etc = ../etc | 54 | etc = ../etc |
| 55 | leimdir = ../leim | 55 | leimdir = ${lispsource}/leim |
| 56 | oldXMenudir = ../oldXMenu | 56 | oldXMenudir = ../oldXMenu |
| 57 | lwlibdir = ../lwlib | 57 | lwlibdir = ../lwlib |
| 58 | 58 | ||
| @@ -415,7 +415,7 @@ all: emacs$(EXEEXT) $(OTHER_FILES) | |||
| 415 | .PHONY: all | 415 | .PHONY: all |
| 416 | 416 | ||
| 417 | $(leimdir)/leim-list.el: bootstrap-emacs$(EXEEXT) | 417 | $(leimdir)/leim-list.el: bootstrap-emacs$(EXEEXT) |
| 418 | cd $(leimdir) && $(MAKE) $(MFLAGS) leim-list.el EMACS="$(bootstrap_exe)" | 418 | cd ../leim && $(MAKE) $(MFLAGS) leim-list.el EMACS="$(bootstrap_exe)" |
| 419 | 419 | ||
| 420 | ## The dumped Emacs is as functional and more efficient than | 420 | ## The dumped Emacs is as functional and more efficient than |
| 421 | ## bootstrap-emacs, so we replace the latter with the former. | 421 | ## bootstrap-emacs, so we replace the latter with the former. |
diff --git a/src/epaths.in b/src/epaths.in index 02e755935c4..5bfc7158316 100644 --- a/src/epaths.in +++ b/src/epaths.in | |||
| @@ -22,8 +22,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 22 | load-path, which is the search path for the Lisp function "load". | 22 | load-path, which is the search path for the Lisp function "load". |
| 23 | Configure (using "make epaths-force") sets this to | 23 | Configure (using "make epaths-force") sets this to |
| 24 | ${standardlisppath}, which typically has a value like: | 24 | ${standardlisppath}, which typically has a value like: |
| 25 | <datadir>/emacs/VERSION/lisp:<datadir>/emacs/VERSION/leim | 25 | <datadir>/emacs/VERSION/lisp where datadir is eg /usr/local/share. |
| 26 | where datadir is eg /usr/local/share. | ||
| 27 | */ | 26 | */ |
| 28 | #define PATH_LOADSEARCH "/usr/local/share/emacs/lisp" | 27 | #define PATH_LOADSEARCH "/usr/local/share/emacs/lisp" |
| 29 | 28 | ||
| @@ -41,10 +40,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 41 | 40 | ||
| 42 | /* Like PATH_LOADSEARCH, but used only during the build process | 41 | /* Like PATH_LOADSEARCH, but used only during the build process |
| 43 | when Emacs is dumping. Configure (using "make epaths-force") sets | 42 | when Emacs is dumping. Configure (using "make epaths-force") sets |
| 44 | this to $buildlisppath, which normally has the value: | 43 | this to $buildlisppath, which normally has the value: <srcdir>/lisp. |
| 45 | <srcdir>/lisp:<builddir>/leim. | ||
| 46 | */ | 44 | */ |
| 47 | #define PATH_DUMPLOADSEARCH "../lisp:../leim" | 45 | #define PATH_DUMPLOADSEARCH "../lisp" |
| 48 | 46 | ||
| 49 | /* The extra search path for programs to invoke. This is appended to | 47 | /* The extra search path for programs to invoke. This is appended to |
| 50 | whatever the PATH environment variable says to set the Lisp | 48 | whatever the PATH environment variable says to set the Lisp |
diff --git a/src/lread.c b/src/lread.c index 3063cf248f5..679cbb78375 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -4157,14 +4157,12 @@ static Lisp_Object dump_path; | |||
| 4157 | are not yet installed, we should not use them, even if they exist.) | 4157 | are not yet installed, we should not use them, even if they exist.) |
| 4158 | If installation-dir/lisp does not exist, just add dump_path at the | 4158 | If installation-dir/lisp does not exist, just add dump_path at the |
| 4159 | end instead. | 4159 | end instead. |
| 4160 | Add installation-dir/leim (if exists and not already a member) at the front. | ||
| 4161 | Add installation-dir/site-lisp (if !no_site_lisp, and exists | 4160 | Add installation-dir/site-lisp (if !no_site_lisp, and exists |
| 4162 | and not already a member) at the front. | 4161 | and not already a member) at the front. |
| 4163 | If installation-dir != source-dir (ie running an uninstalled, | 4162 | If installation-dir != source-dir (ie running an uninstalled, |
| 4164 | out-of-tree build) AND install-dir/src/Makefile exists BUT | 4163 | out-of-tree build) AND install-dir/src/Makefile exists BUT |
| 4165 | install-dir/src/Makefile.in does NOT exist (this is a sanity | 4164 | install-dir/src/Makefile.in does NOT exist (this is a sanity |
| 4166 | check), then repeat the above steps for source-dir/lisp, | 4165 | check), then repeat the above steps for source-dir/lisp, site-lisp. */ |
| 4167 | leim and site-lisp. */ | ||
| 4168 | 4166 | ||
| 4169 | static Lisp_Object | 4167 | static Lisp_Object |
| 4170 | load_path_default (bool changed) | 4168 | load_path_default (bool changed) |
| @@ -4233,9 +4231,9 @@ load_path_default (bool changed) | |||
| 4233 | if (NILP (Fmember (tem, lpath))) | 4231 | if (NILP (Fmember (tem, lpath))) |
| 4234 | { | 4232 | { |
| 4235 | /* We are running uninstalled. The default load-path | 4233 | /* We are running uninstalled. The default load-path |
| 4236 | points to the eventual installed lisp, leim | 4234 | points to the eventual installed lisp directories. |
| 4237 | directories. We should not use those now, even | 4235 | We should not use those now, even if they exist, |
| 4238 | if they exist, so start over from a clean slate. */ | 4236 | so start over from a clean slate. */ |
| 4239 | lpath = list1 (tem); | 4237 | lpath = list1 (tem); |
| 4240 | } | 4238 | } |
| 4241 | } | 4239 | } |
| @@ -4244,16 +4242,6 @@ load_path_default (bool changed) | |||
| 4244 | Lisp dirs instead. */ | 4242 | Lisp dirs instead. */ |
| 4245 | lpath = nconc2 (lpath, dump_path); | 4243 | lpath = nconc2 (lpath, dump_path); |
| 4246 | 4244 | ||
| 4247 | /* Add leim under the installation dir, if it is accessible. */ | ||
| 4248 | tem = Fexpand_file_name (build_string ("leim"), | ||
| 4249 | Vinstallation_directory); | ||
| 4250 | tem1 = Ffile_accessible_directory_p (tem); | ||
| 4251 | if (!NILP (tem1)) | ||
| 4252 | { | ||
| 4253 | if (NILP (Fmember (tem, lpath))) | ||
| 4254 | lpath = Fcons (tem, lpath); | ||
| 4255 | } | ||
| 4256 | |||
| 4257 | /* Add site-lisp under the installation dir, if it exists. */ | 4245 | /* Add site-lisp under the installation dir, if it exists. */ |
| 4258 | if (!no_site_lisp) | 4246 | if (!no_site_lisp) |
| 4259 | { | 4247 | { |
| @@ -4269,7 +4257,7 @@ load_path_default (bool changed) | |||
| 4269 | 4257 | ||
| 4270 | /* If Emacs was not built in the source directory, | 4258 | /* If Emacs was not built in the source directory, |
| 4271 | and it is run from where it was built, add to load-path | 4259 | and it is run from where it was built, add to load-path |
| 4272 | the lisp, leim and site-lisp dirs under that directory. */ | 4260 | the lisp and site-lisp dirs under that directory. */ |
| 4273 | 4261 | ||
| 4274 | if (NILP (Fequal (Vinstallation_directory, Vsource_directory))) | 4262 | if (NILP (Fequal (Vinstallation_directory, Vsource_directory))) |
| 4275 | { | 4263 | { |
| @@ -4294,12 +4282,6 @@ load_path_default (bool changed) | |||
| 4294 | if (NILP (Fmember (tem, lpath))) | 4282 | if (NILP (Fmember (tem, lpath))) |
| 4295 | lpath = Fcons (tem, lpath); | 4283 | lpath = Fcons (tem, lpath); |
| 4296 | 4284 | ||
| 4297 | tem = Fexpand_file_name (build_string ("leim"), | ||
| 4298 | Vsource_directory); | ||
| 4299 | |||
| 4300 | if (NILP (Fmember (tem, lpath))) | ||
| 4301 | lpath = Fcons (tem, lpath); | ||
| 4302 | |||
| 4303 | if (!no_site_lisp) | 4285 | if (!no_site_lisp) |
| 4304 | { | 4286 | { |
| 4305 | tem = Fexpand_file_name (build_string ("site-lisp"), | 4287 | tem = Fexpand_file_name (build_string ("site-lisp"), |
diff --git a/src/nsterm.m b/src/nsterm.m index aa9f2af35d8..d995bfa835b 100644 --- a/src/nsterm.m +++ b/src/nsterm.m | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | /* NeXT/Open/GNUstep / MacOSX communication module. | 1 | /* NeXT/Open/GNUstep / MacOSX communication module. |
| 2 | 2 | ||
| 3 | Copyright (C) 1989, 1993-1994, 2005-2006, 2008-2013 Free Software | 3 | Copyright (C) 1989, 1993-1994, 2005-2006, 2008-2013 |
| 4 | Foundation, Inc. | 4 | Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | This file is part of GNU Emacs. | 6 | This file is part of GNU Emacs. |
| 7 | 7 | ||
| @@ -445,8 +445,8 @@ ns_exec_path (void) | |||
| 445 | const char * | 445 | const char * |
| 446 | ns_load_path (void) | 446 | ns_load_path (void) |
| 447 | /* If running as a self-contained app bundle, return as a path string | 447 | /* If running as a self-contained app bundle, return as a path string |
| 448 | the filenames of the site-lisp, lisp and leim directories. | 448 | the filenames of the site-lisp and lisp directories. |
| 449 | Ie, site-lisp:lisp:leim. Otherwise, return nil. */ | 449 | Ie, site-lisp:lisp. Otherwise, return nil. */ |
| 450 | { | 450 | { |
| 451 | NSBundle *bundle = [NSBundle mainBundle]; | 451 | NSBundle *bundle = [NSBundle mainBundle]; |
| 452 | NSString *resourceDir = [bundle resourcePath]; | 452 | NSString *resourceDir = [bundle resourcePath]; |
| @@ -456,7 +456,7 @@ ns_load_path (void) | |||
| 456 | BOOL isDir; | 456 | BOOL isDir; |
| 457 | NSArray *paths = [resourceDir stringsByAppendingPaths: | 457 | NSArray *paths = [resourceDir stringsByAppendingPaths: |
| 458 | [NSArray arrayWithObjects: | 458 | [NSArray arrayWithObjects: |
| 459 | @"site-lisp", @"lisp", @"leim", nil]]; | 459 | @"site-lisp", @"lisp", nil]]; |
| 460 | NSEnumerator *pathEnum = [paths objectEnumerator]; | 460 | NSEnumerator *pathEnum = [paths objectEnumerator]; |
| 461 | resourcePaths = @""; | 461 | resourcePaths = @""; |
| 462 | 462 | ||