[mew-dist 21973] Re: folder search
Hideyuki SHIRAI ( 白井秀行 )
shirai at example.com
2002年 10月 21日 (月) 11:29:32 JST
From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 21971] Re: folder search
Message-ID: <20021021.094402.123579205.kazu at example.com>
Date: Mon, 21 Oct 2002 09:44:02 +0900 (JST)
> > この話に関係するかわかりませんが,gでフォルダ入力状態にして
> > 何文字かフォルダ名を入力したあとで,[Backspace]や[Del]による
> > 修正ができないです.
> > C-sやC-rのあとではちゃんと文字を消してくれますが.
>
> だいぶ状況が分りました。
>
> まず、このパッチは間違いです。このパッチでは、C-s/C-r の後に DEL を押
> すと、候補が戻ってくれないと思います。
>
> 問題は、
> mew-input-folder-self-insert
> で、backspace や delete に割り当てられている関数が Meadow 環境でうまく
> 発見できないことでしょう。
でした。
# ぼくの場合は、(load-library "term/bobcat") しているし、HHK の
# delete key が backspace だし、で汎用性があるのかわかりませんが、
HHK で backspace に変えている delete key を押すと [backspase] が
key となりました。
つぎに
(lookup-key function-key-map [backspace])
=> "^?" ;; UNIX の Emacs20/21 だと [127]
となり、
> (cond
> ...
> ((vectorp key) <= t
> (setq gfunc (lookup-key (current-global-map) key)) <= nil
> (unless gfunc
> (setq key (lookup-key function-key-map key)) <= "^?"
> (if (vectorp key) => nil
> (setq gfunc (lookup-key (current-global-map) key))))))
となるのでした。
もう一台の NotePC は PageDown を押すと backspace なのでもっと
めちゃくちゃ ^^; だけど↓で問題なく動きました。
--
白井秀行 (mailto:shirai at example.com)
*** mew-minibuf.el.orig Mon Oct 21 11:27:47 2002
--- mew-minibuf.el Mon Oct 21 11:13:28 2002
***************
*** 119,126 ****
(setq gfunc (lookup-key (current-global-map) key))
(unless gfunc
(setq key (lookup-key function-key-map key))
! (if (vectorp key)
! (setq gfunc (lookup-key (current-global-map) key))))))
(if mew-input-folder-search-direction
(cond
((or (equal key "\177") (equal key [127])
--- 119,130 ----
(setq gfunc (lookup-key (current-global-map) key))
(unless gfunc
(setq key (lookup-key function-key-map key))
! (cond
! ((vectorp key)
! (setq gfunc (lookup-key (current-global-map) key)))
! ((stringp key)
! (setq last-str key)
! (setq gfunc (lookup-key (current-global-map) key)))))))
(if mew-input-folder-search-direction
(cond
((or (equal key "\177") (equal key [127])
Mew-dist メーリングリストの案内