[mew-dist 27612] folder search での１文字削除

[Takashi Masuda ( 増田貴士 )]

増田です。

folder search で、１文字前の文字を削除するには BackSpace キーが使えます
が、Ctrl-h を使う方法はありますか？

mew-input-folder-self-insert() を眺めてみたところ、ハードコーディング
されているため、設定でどうにかならないような感じでした。

添付のように、ユーザがカスタマイズできるというのはいかがでしょうか？
# イマイチかな...。

--
Takashi Masuda <masutaka at example.com>
-------------- next part --------------
Index: mew-minibuf.el
===================================================================
RCS file: /cvsmew/mew/mew-minibuf.el,v
retrieving revision 1.136
diff -u -r1.136 mew-minibuf.el
--- mew-minibuf.el	4 Jan 2007 06:49:11 -0000	1.136
+++ mew-minibuf.el	15 Apr 2007 13:53:20 -0000
@@ -329,6 +329,8 @@
 ;;; Self insert
 ;;;
 
+(defvar mew-input-folder-delchar-list '("\177" [127] delete backspace))
+
 (defun mew-input-folder-self-insert ()
   "This function normally inserts its bound key to minibuffer.
 When in folder search mode, this function searches a candidate
@@ -360,8 +362,7 @@
 	  (setq gfunc (lookup-key (current-global-map) key)))))))
     (if mew-input-folder-search-direction
 	(cond
-	 ((or (equal key "\177") (equal key [127])
-	      (equal key 'delete) (equal key 'backspace))
+	 ((member key mew-input-folder-delchar-list)
 	  (if (null mew-input-folder-search-key)
 	      (mew-input-folder-display "not allowed")
 	    (setq mew-input-folder-search-key