[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 メーリングリストの案内