Mercurial > emacs
view lib-src/mac-fix-env.m @ 97289:6cec2902d7b8
* net/xesam.el (top): Require `wid-edit' always.
(xesam-mode-line, xesam-highlight): New deffaces.
(xesam-objects): New local variable.
(xesam-search-engines): Fix error in field list.
(xesam-mode): Use `xesam-mode-line' instead of
`font-lock-type-face'. Apply `xesam-mode' to a temp buffer, for
proper initiatilzaion (why?).
(xesam-highlight-string, xesam-get-hits)
(xesam-kill-buffer-function): New defuns.
(xesam-refresh-entry): Move code to `xesam-get-hits'. Check
result of "hit.fields", it isn't a string only. Wrap an error of
the strigi search engine ("xesam:size" is returned as string).
Highlight search items.
(xesam-refresh-search-buffer): Make logic of counters more simple.
Prefetch next hits.
(xesam-signal-handler): Use `xesam-mode-line' instead of
`font-lock-type-face'.
(xesam-new-search): Add `xesam-kill-buffer-function' to
`kill-buffer-hook'.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Tue, 05 Aug 2008 19:47:27 +0000 |
parents | 98ae99a5a007 |
children | a9f7e446141d |
line wrap: on
line source
/* mac-fix-env: A small utility to pick up the shell environment on MacOS X and insert it into the file ~/.MacOSX/environment.plist creating if necessary. Copyright (C) 1989, 1993, 2005, 2008 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ /* usage: Run from command line (in Terminal) once or whenever path changes: /Applications/Emacs.app/Contents/MacOS/bin/mac-fix-env (change initial part to where you installed Emacs). */ #import <Foundation/Foundation.h> #include <stdlib.h> int main(int argc, char *argv[]) { NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init]; NSMutableDictionary *envPlist; NSString *file = [[NSHomeDirectory() stringByAppendingPathComponent:@".MacOSX"] stringByAppendingPathComponent:@"environment.plist"]; NSString *path = [NSString stringWithCString: getenv("PATH")]; envPlist = [[NSDictionary dictionaryWithContentsOfFile: file] mutableCopy]; if (envPlist == nil) { // create NSString *dir = [file stringByDeletingLastPathComponent]; envPlist = [NSMutableDictionary dictionaryWithCapacity: 5]; if ([[NSFileManager defaultManager] fileExistsAtPath: dir] == NO) { if ([[NSFileManager defaultManager] createDirectoryAtPath:dir attributes:nil]==NO) { NSLog(@":\nCould not create directory at '%@'; aborting.",dir); return 1; } } } [envPlist setObject: path forKey: @"PATH"]; if ([envPlist writeToFile: file atomically: YES] == NO) { NSLog(@":\nCould not write file at '%@'; aborting.", file); return 1; } NSLog(@":\nWrote file to '%@'.\nPlease inspect it to make sure PATH is correct.", file); return 0; } // arch-tag: 609d5528-5ac1-42c5-859b-24c14341ee3b