[mew-dist 24144] mew-input-case-hist

[KOIE Hidetaka ( 鯉江英隆 )]

read-from-minibufferを呼んでいるとろでヒストリがないのはcaseだけで
caseの入力でも専用のヒストリがあると
複数のcaseを切り替えてつかうときたすかるのでパッチにしました。

Index: mew-minibuf.el
===================================================================
RCS file: /cvsmew/mew/mew-minibuf.el,v
retrieving revision 1.105
diff -F^( -u -r1.105 mew-minibuf.el
--- mew-minibuf.el	23 Jul 2003 10:09:23 -0000	1.105
+++ mew-minibuf.el	31 Oct 2003 06:31:13 -0000
@@ -929,6 +929,8 @@ (defun mew-input-case-check ()
           nil)
       t)))
 
+(defvar mew-input-case-hist nil)
+
 (defun mew-input-case (default msg &optional edit)
   (mew-input-clear)
   (unless default (setq default mew-case-default))
@@ -940,11 +942,15 @@ (defun mew-input-case (default msg &opti
 	(setq case (read-from-minibuffer
 		    (format "%s case value: " msg)
 		    default
-		    mew-input-map))
+		    mew-input-map
+                    nil
+                    'mew-input-case-hist))
       (setq case (read-from-minibuffer
 		  (format "%s case value (%s): " msg default)
 		  ""
-		  mew-input-map)))
+		  mew-input-map
+                  nil
+                  'mew-input-case-hist)))
     (if (string= case "")
 	default
       (setq lst (mew-split case ?,))

--
鯉江英隆 <hide at example.com>