Mercurial > emacs
comparison src/mac.c @ 78383:f97cdcfcf9ee
Adjust load-path
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Wed, 01 Aug 2007 21:43:46 +0000 |
parents | 922696f363b0 |
children | ccca2e6b8cd9 |
comparison
equal
deleted
inserted
replaced
78382:a3d5f3156c33 | 78383:f97cdcfcf9ee |
---|---|
5329 if (!getenv ("EMACSLOADPATH")) | 5329 if (!getenv ("EMACSLOADPATH")) |
5330 { | 5330 { |
5331 q[0] = '\0'; | 5331 q[0] = '\0'; |
5332 | 5332 |
5333 strcpy (p, app_bundle_pathname); | 5333 strcpy (p, app_bundle_pathname); |
5334 strcat (p, "/Contents/Resources/lisp"); | 5334 strcat (p, "/Contents/Resources/site-lisp"); |
5335 if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR) | 5335 if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR) |
5336 strcat (q, p); | 5336 strcat (q, p); |
5337 | 5337 |
5338 strcpy (p, app_bundle_pathname); | 5338 strcpy (p, app_bundle_pathname); |
5339 strcat (p, "/Contents/Resources/leim"); | 5339 strcat (p, "/Contents/Resources/lisp"); |
5340 if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR) | 5340 if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR) |
5341 { | 5341 { |
5342 if (q[0] != '\0') | 5342 if (q[0] != '\0') |
5343 strcat (q, ":"); | 5343 strcat (q, ":"); |
5344 strcat (q, p); | 5344 strcat (q, p); |
5345 } | 5345 } |
5346 | 5346 |
5347 strcpy (p, app_bundle_pathname); | 5347 strcpy (p, app_bundle_pathname); |
5348 strcat (p, "/Contents/Resources/site-lisp"); | 5348 strcat (p, "/Contents/Resources/leim"); |
5349 if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR) | 5349 if (stat (p, &st) == 0 && (st.st_mode & S_IFMT) == S_IFDIR) |
5350 { | 5350 { |
5351 if (q[0] != '\0') | 5351 if (q[0] != '\0') |
5352 strcat (q, ":"); | 5352 strcat (q, ":"); |
5353 strcat (q, p); | 5353 strcat (q, p); |