lookup

木下さんに教えてもらって、参照先を ndtpd から eblook に切りかえてみた。確かに早いかも。

;;; lookup
(define-key ctl-x-map "l" 'lookup)              ; C-x l - lookup
(define-key ctl-x-map "y" 'lookup-region)       ; C-x y - lookup-region
(define-key ctl-x-map "\C-y" 'lookup-pattern)   ; C-x C-y - lookup-pattern
(autoload 'lookup "lookup" nil t)
(autoload 'lookup-region "lookup" nil t)
(autoload 'lookup-pattern "lookup" nil t)
(autoload 'lookup-word "lookup" nil t)

(setq lookup-search-agents '(
                             (ndeb "c:/path/to/readers")(ndspell)
                             (ndeb "c:/path/to/eijiro")(ndspell)
                             (ndeb "c:/path/to/mypaedia")(ndspell)
                             (ndtp "localhost")(ndspell)
                             ))

PATH の通ったところに eblook.exe を置くだけで問題なく動いた。ついでなので autolookup のコメントも外しておく。

;;; autolookup
(setq auto-lookup-backend 'lookup)
(autoload 'auto-lookup-mode "autolookup" 
          "ポイント下の単語の訳を自動的に表示するマイナーモード" t)
(autoload 'global-auto-lookup-mode "autolookup" 
          "ポイント下の単語の訳を自動的に表示するマイナーモードをすべてのバッファで起動する．" t)

さすがにちょっともたつくけど、実用になりそう。