Mercurial > emacs

comparison src/mac.c @ 78383:f97cdcfcf9ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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);