忙しさのピークはもう少しでおしまい。頑張れ!!
(when (and (featurep 'jisx0213) (= emacs-major-version 22)) (defadvice isearch-search-string (around fake-translation-table-for-input activate) "Fake translation-table-for-input for euc-jisx0213." (if (and buffer-file-coding-system (coding-system-p 'euc-jisx0213) (memq (coding-system-base buffer-file-coding-system) '(euc-jisx0213 euc-jisx0213-with-esc))) (let ((translation-table-for-input nil)) ad-do-it) ad-do-it)))こんなので動くけど、ダメダメだなぁ。だけど euc-jisx0213 だったら、translation-table-for-input 使わなくても大丈夫だよなぁ、きっと。
使用前: (setq lookup-search-agents '((ndeb "/usr/local/ndtp/koujien5") (ndeb "/usr/local/ndtp/mypaedia") .... 使用後: (setq lookup-search-agents '((ndebs "/usr/local/ndtp/koujien5") (ndebs "/usr/local/ndtp/mypaedia") ... 使用前: (lookup-set-dictionary-option "ndeb+/usr/local/ndtp/mypaedia:mypaedia" :hiragana t) (lookup-set-dictionary-option "ndeb+/usr/local/ndtp/kenkyu:kendic" :stemmer 'stem-english) 使用後: (lookup-set-dictionary-option "ndebs+/usr/local/ndtp/mypaedia:mypaedia" :hiragana t) (lookup-set-dictionary-option "ndebs+/usr/local/ndtp/kenkyu:kendic" :stemmer 'stem-english)