[debian-users:08883] lookup-el doesn't work.

[TAKEchi Masashi <takechon@xxxxxxx>]

タケチマサシです

　日常生活に何不自由なく暮らせる環境になっていたので，しばらく slink
追っかけは控えていたのですが，Emacs と Mew を最新にしたくて約一ヵ月ぶ
りに dselect (via FTP) してみました。

　概ね更新はできたのですが，lookup-el にて CD-ROM 辞書を検索すると，以
下のエラーが Emacs のミニバッファに表示され，辞書の検索が途中で終了す
るようになりました。

Invalid component character: 0

　CD-ROM 辞書は広辞苑とリーダース英和が収録されている「辞典盤 Pro」で，
HDD にコピーして /hda1 として CD イメージのままマウントして使用してい
ます。
　検索エージェントには eblook を使用しています。

　一気にいろんなパッケージのバージョンアップをしてしまい，以前のバージョ
ンが何でどのパッケージを入れ換えたのか解らなくなっていて，大変情けない
のですが，何かの設定が足りない/間違っているのだと考えています。

　関係のありそうなパッケージの dpkg -i の表示と ~/.emacs を付けます。
　他に check しなければならない点，アドバイス等あればよろしくお願いし
ます。

// TAKEchi Masashi <takechon@xxxxxxx>

<関連(?) パッケージ>
ii  lookup-el       1.0b2-1        Search interface to electronic dictionaries.
ii  eblook          0.9.1-5        Electric-Dictionary serch command using EB l
ii  ndtpd           2.0.3-2        CD-ROM books server
ii  emacs-dl-canna  1.0.19980702+m Canna extension for emacs20-dl
ii  emacs20         20.3-1         The GNU Emacs editor.
ii  emacs20-dl      20.3-3         The GNU Emacs editor.
ii  emacs20-el      20.3-1         GNU Emacs LISP (.el) files.
ii  emacsen-common  1.4.8          Common facilities for all emacsen.

<~/.emacs>
(set-language-environment "Japanese")
(set-buffer-file-coding-system 'euc-japan)
(set-terminal-coding-system 'euc-japan)
(setq default-buffer-file-coding-system 'euc-japan)
(setq default-terminal-coding-system 'euc-japan)

; for Canna
(load-library "canna")
(canna)

; for mew
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-use-overlay-keymap nil)
(setq mew-mail-domain-list '("ibm.net"))
(setq mew-icon-directory "/usr/local/lib/xemacs-20.3/etc/mew")
(setq mew-draft-mode-hook (function (lambda () (auto-fill-mode 1))))
(setq mew-from "TAKEchi Masashi <takechon@xxxxxxx>")
(setq mew-fcc "+Backup")
(setq mew-dcc "takechon@xxxxxxx")
(setq mew-mail-address "takechon@xxxxxxx")
(setq  mew-refile-guess-alist
       '(
	 ("Subject:"
	  ("debian-users:" . "+ml/debian-users")
          )
	 ))
(setq mew-refile-guess-control
      '(mew-refile-guess-by-alist
        mew-refile-guess-by-newsgroups
        mew-refile-guess-by-folder
        mew-refile-ctrl-throw
        mew-refile-ctrl-auto-boundary
        mew-refile-guess-by-msgid
;       mew-refile-guess-by-from
        mew-refile-guess-by-from2
        mew-refile-guess-by-default))

;; browse-url の設定
(autoload 'browse-url-at-point "browse-url"
  "Ask a WWW browser to load the URL at or before point." t)
(autoload 'browse-url-at-mouse "browse-url"
  "Ask a WWW browser to load a URL clicked with the mouse." t)
(autoload 'browse-url-of-buffer "browse-url"
  "Ask a WWW browser to display BUFFER." t)
(autoload 'browse-url-of-file "browse-url"
  "Ask a WWW browser to display FILE." t)
(autoload 'browse-url-of-dired-file "browse-url"
  "In Dired, ask a WWW browser to display the file named on this line." t)

;; Mew から browse-url を呼び出す
(add-hook 'mew-message-mode-hook
      (function
       (lambda ()
       (local-set-key [mouse-2] 'browse-url-at-mouse)
	 )))
;; ブラウザの指定
;(setq browse-url-browser-function 'browse-url-w3)

; for dictionary
(autoload 'xdic:describe-word-at-point "xdic" "英単語の意味を調べる" t nil)
(global-set-key "\C-cW" 'xdic:describe-word)
(global-set-key "\C-cw" 'xdic:describe-word-at-point)

; put date
(defun insert-date()
  "現在の時刻をカーソル位置に挿入する"
  (interactive)
  (insert (current-time-string)))
(global-set-key "\C-xt" 'insert-date)

; for w3
(setq w3-default-homepage "http://www02.so-net.ne.jp/~take/";)

;; for lookup-el
(setq lookup-search-agents '((ndeb "/hda1")))
(global-set-key "\C-ce" 'lookup-pattern)
(setq lookup-gaiji-compose-function 'lookup-bitmap-compose)