[mew-dist 19784] minibuffer keymap

[Tak Ota]

minibuffer からの入力時に emacs 標準キー（up/down arrows など）が使え
るようにしてみました。2.1 からのパッチです。

同時に M-n が使えるように mew-minibuf.el の read-from-minibuffer に全
て DEFAULT-VALUE を与えてあげようと思ったのですが INITIAL-CONTENTS の 
"+" が例外的な存在で面倒なのでやめました。

ところでこれをやっていて思ったのですが mew-input-map の名前が
mew-minibuffer-map でない理由は何なんでしょう。mew の歴史や xemacs の
ことを良く知らないので疑問に思えました。


*** ../../../pub/mew/mew-2.1/mew-key.el	Thu Oct 25 22:19:15 2001
--- mew-key.el	Thu Dec  6 07:49:34 2001
***************
*** 453,463 ****
  ;;;
  ;;; Minibuffer
  ;;;
  
  (unless mew-input-map
!   (setq mew-input-map (make-sparse-keymap))
    (define-key mew-input-map " "    'mew-input-complete)
    (define-key mew-input-map "\t"   'mew-input-complete)
    (define-key mew-input-map "?"    'mew-input-complete)
  ;;  (define-key mew-input-map "\177" 'backward-delete-char)
  ;;  (define-key mew-input-map [delete] 'backward-delete-char)
--- 453,466 ----
  ;;;
  ;;; Minibuffer
  ;;;
  
  (unless mew-input-map
!   (setq mew-input-map
! 	(if (boundp 'minibuffer-local-map)
! 	    (copy-keymap minibuffer-local-map)
! 	  (make-sparse-keymap)))
    (define-key mew-input-map " "    'mew-input-complete)
    (define-key mew-input-map "\t"   'mew-input-complete)
    (define-key mew-input-map "?"    'mew-input-complete)
  ;;  (define-key mew-input-map "\177" 'backward-delete-char)
  ;;  (define-key mew-input-map [delete] 'backward-delete-char)