# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1186004626 0
# Node ID f97cdcfcf9ee33816a032ff2e125a47dfab054d4
# Parent  a3d5f3156c33860ab4f72df03e43f3abf11d4a72
Adjust load-path

diff -r a3d5f3156c33 -r f97cdcfcf9ee src/ChangeLog
--- a/src/ChangeLog	Wed Aug 01 18:28:48 2007 +0000
+++ b/src/ChangeLog	Wed Aug 01 21:43:46 2007 +0000
@@ -1,3 +1,8 @@
+2007-08-01  Seiji Zenitani  <zenitani@mac.com>
+
+	* mac.c (init_mac_osx_environment): Adjust load-path on self-contained
+	build.
+
 2007-07-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* eval.c (init_eval_once): Bump max_lisp_eval_depth to 400.
diff -r a3d5f3156c33 -r f97cdcfcf9ee src/mac.c
--- a/src/mac.c	Wed Aug 01 18:28:48 2007 +0000
+++ b/src/mac.c	Wed Aug 01 21:43:46 2007 +0000
@@ -5331,12 +5331,12 @@
       q[0] = '\0';
 
       strcpy (p, app_bundle_pathname);
-      strcat (p, "/Contents/Resources/lisp");
+      strcat (p, "/Contents/Resources/site-lisp");
       if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR)
 	strcat (q, p);
 
       strcpy (p, app_bundle_pathname);
-      strcat (p, "/Contents/Resources/leim");
+      strcat (p, "/Contents/Resources/lisp");
       if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR)
 	{
 	  if (q[0] != '\0')
@@ -5345,7 +5345,7 @@
 	}
 
       strcpy (p, app_bundle_pathname);
-      strcat (p, "/Contents/Resources/site-lisp");
+      strcat (p, "/Contents/Resources/leim");
       if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR)
 	{
 	  if (q[0] != '\0')