Enable separate language searches with lookup-el in GNU Emacs

<a href="Non-Sumou.html">Other GNU Emacs tips</a>

<a href="http://openlab.jp/edict/lookup/index.html.ja">Lookup</a> is a great dictionary searching tool for <a href="http://www.gnu.org/software/emacs/">GNU Emacs</a>.

To enable starting lookup-el in GNU Emacs for each language search independently, having Lookup only offer the dictionaries valid for the particular language, edit your ~/.emacs file and use the following text as example for your particular language configuration, assuming you have a ~/dic directory, with subdirectories for the respective languages:

<pre>;; Lookup configuration (define-key ctl-x-map "l" 'lookup) ;C-x l - lookup (define-key ctl-x-map "y" 'lookup) ;C-x y - lookup region (define-key ctl-x-map "C-y" 'lookup-pattern) ;C-x C-y (define-key ctl-x-map "w" 'lookup-word) ;C-x w - lookup word ;; Lookup for Japanese dictionaries (defun lj() <blockquote> (interactive) (setq lookup-search-agents '( (ndeb "~/dic/epwing/edict_en") (ndeb "~/dic/epwing/eijiro") (ndeb "~/dic/epwing/enamdict") (ndeb "~/dic/epwing/kanjidic_en") (ndeb "~/dic/epwing/pdd") (ndeb "~/dic/epwing/pddj") ) ) (lookup) ) ;; Lookup for Chinese dictionaries (defun lch() (interactive) (setq lookup-search-agents '( (ndeb "~/dic/epwing/cedict") ) ) (lookup) ) ;; Lookup for Czech dictionaries (defun lc() (interactive) (setq lookup-search-agents '( (ndic "~/dic/dict/czech/") ) ) (lookup) ) ;; Lookup for Russian dictionaries (defun lr() (interactive) (setq lookup-search-agents '( (ndic "~/dic/dict/russian/") ) ) (lookup) ) ;; Lookup for Ukrainian dictionaries (defun lu() (interactive) (setq lookup-search-agents '( (ndic "~/dic/dict/ukrainian/") ) ) ) ;; Lookup for Polish dictionaries (defun lp() (interactive) (setq lookup-search-agents '( (ndic "~/dic/dict/polish/") ) ) (lookup) ) ;; Lookup for German dictionaries (defun lg() (interactive) (setq lookup-search-agents '( (ndic "~/dic/dict/german/") ) ) (lookup) )</pre> </blockquote>

Now, when wishing to search for a Japanese translation, run: M-x lj

When finished: Q y

Then for a Russian search: M-x lr

When finished: Q y

And so on, lookup-el will always start, offering only the dictionaries for the respective language to be searched from. <!— Page published by Emacs Muse ends here —> </div> To send me feedback about this page, use the below email. © sumoudou.org 2010 <img style="border:0" alt="sumoudou.org" src="email.gif" width="129" height="10" /> <a href="http://www.gnu.org/" style="text-decoration: none;"><img style="border:0" alt="GNU" src="powered-by-gnu.png" />]] <a href="http://www.gnu.org/software/emacs/emacs.html" style="text-decoration: none;"><img style="border:0" alt="GNU Emacs" src="made-with-emacs.png" />]] <a href="http://hcoop.net/" style="text-decoration: none;"><img style="border:0" alt="HCoop" src="hcoop-proud-member.png" />]] <a href="http://hcoop.net/" style="text-decoration: none;"><img style="border:0" alt="HCoop" src="hosted-by-hcoop.png" />]] <a href="http://mwolson.org/projects/EmacsMuse.html" style="text-decoration: none;"><img style="border:0" alt="Emacs Muse" src="made-with-muse.png" />]] <a href="http://mwolson.org/projects/EmacsMuse.html" style="text-decoration: none;"><img style="border:0" alt="Emacs Muse" src="powered-by-muse.png" />]] <a href="http://www.fsf.org/resources/formats/playogg" style="text-decoration: none;"><img style="border:0" alt="Ogg" src="play-ogg.png" />]] <a href="http://www.catb.org/hacker-emblem/" style="text-decoration: none;"><img style="border:0" alt="Glider" src="glider.png" />]] <a href="http://ubuntu.com/" style="text-decoration: none;"><img style="border:0" alt="Ubuntu" src="ubuntu.png" />]] <a href="http://validator.w3.org/check?uri=referer" style="text-decoration: none;"><img style="border:0" alt="Valid XHTML 1.0 Strict!" src="valid-xhtml10-blue.png" />]] <a href="http://jigsaw.w3.org/css-validator/check/referer" style="text-decoration: none;"><img style="border:0" alt="Valid CSS!" src="valid-css-blue.png" />]] Last updated November 6, 2009

</div> . </body> </html>