Adjust load-path

diff --git a/src/ChangeLog b/src/ChangeLog
index d50f9fbe51869d6f271725f8011fe2a75a44edc6..32d0a243aa006532fa55269e32800c992712b7fd 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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-31  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * gtkutil.c (xg_tool_bar_callback): Generate a single TOOL_BAR_EVENT.

diff --git a/src/mac.c b/src/mac.c
index a64c3d208e3648e4d0539e003eba0e0ff65f201e..ba0650c6051eb8b4e6d2e43167fb268bfcc3869f 100644 (file)
--- a/src/mac.c
+++ b/src/mac.c
@@ -5327,12 +5327,12 @@ init_mac_osx_environment ()
       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')
@@ -5341,7 +5341,7 @@ init_mac_osx_environment ()
        }
 
       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')