Seiji Zenitani
zenit****@users*****
2005年 10月 23日 (日) 13:18:05 JST
Index: CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-builtin-aspell.el diff -u /dev/null CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-builtin-aspell.el:1.1 --- /dev/null Sun Oct 23 13:18:05 2005 +++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-builtin-aspell.el Sun Oct 23 13:18:05 2005 @@ -0,0 +1,21 @@ +;; settings for built-in aspell + +(require 'carbon-emacs-package) + +;; explicit program name +(setq ispell-program-name + (concat carbon-emacs-package-app-path "/Contents/MacOS/bin/aspell")) + +;; dyld path +(carbon-emacs-package-add-to-env + "DYLD_LIBRARY_PATH" (concat carbon-emacs-package-prefix "/lib")) + +;; path settings +(setenv "ASPELL_CONF" + (concat "prefix " carbon-emacs-package-prefix ";" + "data-dir " carbon-emacs-package-prefix "/lib/aspell-0.60;" + "dict-dir " carbon-emacs-package-prefix "/lib/aspell-0.60;" + "conf-dir " carbon-emacs-package-prefix "/etc" + )) + +;; end Index: CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el diff -u /dev/null CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.1 --- /dev/null Sun Oct 23 13:18:05 2005 +++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el Sun Oct 23 13:18:05 2005 @@ -0,0 +1,31 @@ +;; japanese settings for Carbon Emacs Package + +(set-language-environment 'Japanese) +(set-default-coding-systems 'euc-jp-unix) +(set-keyboard-coding-system + (if (eq window-system 'mac) 'sjis-mac 'utf-8)) ; by seto-san +(set-clipboard-coding-system 'sjis-mac) +(set-terminal-coding-system 'utf-8) +;;(set-file-name-coding-system 'utf-8) ; already set + +(when (eq window-system 'mac) +;; (setq default-input-method "MacOSX-IM-JP") + + (add-hook 'isearch-mode-hook 'mac-im-isearch-mode-setup) + (add-hook 'isearch-mode-end-hook 'mac-im-isearch-mode-cleanup) + (add-hook 'minibuffer-setup-hook + (lambda () (mac-im-set-key-script -17))) + ;; fix an IM problem + (add-hook 'mac-im-update-active-input-text-hook + (lambda (str fix &rest text-properties) + (if (not (coding-system-equal + 'sjis-mac (keyboard-coding-system))) + (set-keyboard-coding-system 'sjis-mac))) + t) + ;; add-hoc fix (turn off auto-save) + (setq auto-save-default nil) + (setq mew-draft-mode-auto-save -1) + + ) + +;; end \ No newline at end of file Index: CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-path.el diff -u /dev/null CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-path.el:1.1 --- /dev/null Sun Oct 23 13:18:05 2005 +++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-path.el Sun Oct 23 13:18:05 2005 @@ -0,0 +1,13 @@ +;;; minimum settings for bundled packages + +(require 'carbon-emacs-package) + +;; path +(carbon-emacs-package-add-to-path + '( + "/usr/local/bin" ; w3m + "/usr/X11R6/bin" ; xdvi + "/usr/local/teTeX/bin/powerpc-apple-darwin-current" ; i-Installer + )) + +;;; end