Adjust load-path

diff --git a/src/ChangeLog b/src/ChangeLog
index 835379d9cded05d36fb31ceafe80838d77c46c9c..4a175882a98b73bc870f6e5e4b4414800a6d372a 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-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * eval.c (init_eval_once): Bump max_lisp_eval_depth to 400.

diff --git a/src/mac.c b/src/mac.c
index 0321e8f2ae1b7d3cfc3c6ce6abd1ad84f392c48f..7f22c19936b29b2415e165222644bb043fac7aba 100644 (file)
--- a/src/mac.c
+++ b/src/mac.c
@@ -5331,12 +5331,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')
@@ -5345,7 +5345,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')