[Mew-dist 05106] universal-argument at mew-draft-keyswitch

[Masahiro MURATA ( 村田全寛 )]

  村田@神戸です。

  mew-draft-keyswitch が話題になっていますので，ついでに報告しておきます。

  universal-argument 付きでコマンドを実行した場合も一応考慮されているよ
うですが，1ストロークのコマンドのみです。2ストローク以上だとそのコマンド
すら実行してくれません。
  調べていくと，

		    (eq 'mew-draft-keyswitch
			(key-binding (char-to-string (aref key i)))))

がおかしいとわかったのですが，なぜ先頭1文字のキーバインドしかチェックし
ていないのか分かりませんでした(意図的に?)。とりあえず以下のパッチを作り
ましたが，問題なく動いています。なお，確認したのは，Emacs-20.2 だけで，
XEmacs などでは未確認です。

--
村田 全寛 / MURATA Masahiro
Get Prom-Mew <http://www02.so-net.ne.jp/~murata/software/prom.html>

Mew-1.93b40 に対するパッチ
-------------- next part --------------
--- mew-draft.el.orig	Tue Jun 16 23:35:38 1998
+++ mew-draft.el	Thu Jun 25 10:13:27 1998
@@ -902,8 +902,10 @@
 			(and (<= ?0 tmp) (>= ?9 tmp))))
 	    (setq i (1+ i)))
 	  (while (< i len)
-	    (if (eq 'mew-draft-keyswitch
-		    (key-binding (char-to-string (aref key i))))
+	    (if (or (eq 'mew-draft-keyswitch
+			(key-binding (mew-subsequence key i)))
+		    (eq 'mew-draft-keyswitch
+			(key-binding (char-to-string (aref key i)))))
 		(throw 'keyswitch (setq key (mew-subsequence key i))))
 	    (setq i (1+ i))
 	    )