The Monash Nihongo ftp Archive

The Monash Nihongo ftp Archive

(add-to-list 'load-path "~/elisp/edict_el")
;; package-path ってのは、xemacs 特有の変数か？
;; しょうがないので、load-path で代用？
(setq package-path nil)
(setq package-path (cons nil load-path))
(load-file "~/elisp/edict_el/auto-autoloads.el")
;; (autoload 'edict-search-english "edict"
;; "Search for a translation of an English word" t)
(global-set-key "\e*" 'edict-search-english)
;; (autoload 'edict-search-kanji "edict"
;; "Search for a translation of a Kanji sequence" t)
(global-set-key "\e_" 'edict-search-kanji)
;; (setq *edict-files* '("~/elisp/etc/edict"))
(setq edict-dictionaries '(("edict" . euc-jp)))
(setq edict-user-dictionary '("~/.edict" .euc-jp))
;; edict 本体辞書ユーザー辞書ともに euc-jp と設定しないとうまく動かない。
;; しかし、設定すると edict-force-init がうまく動かない。
;; で、edict-edit.el の一部を変更。

;; (setq edict-dictionaries '("~/elisp/etc/edict"))