忙しさのピークはもう少しでおしまい。頑張れ!!
(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)