[Mew-dist 1461] Re: xemacs + wnn + mew

[SAKAI Kiyotaka]

>> In article <19970806110330R.kazu at example.com>, Kazu Yamamoto (山本和彦) <Kazu at example.com> writes:

>> XEmacs-20.3 beta16 "Budapest" + Mew-1.87 + SKK-10.34jで同様の現象を
>> 確認しました. 
>> 例えば「今日の」と書く場合, 「▼今日の」の状態でbackspaceを押すと
>> Wrong type argument: char-or-string-p, []
>> なるメッセージが表示されます. 

> 酒井さん、これどうしましょう？

基本的に森山さんのパッチでいいと思いますが、vector を使うのは XEmacs 
だけであることを考えて、以下のパッチのようにしておいた方がいいと思いま
す。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew-draft.el,v
retrieving revision 1.1
diff -u -r1.1 mew-draft.el
--- mew-draft.el	1997/08/06 04:25:50	1.1
+++ mew-draft.el	1997/08/06 04:38:23
@@ -921,9 +921,11 @@
 
 (defun mew-draft-keyswitch ()
   (interactive)
-  (let* ((key (this-command-keys))
-	 (command (lookup-key (current-global-map) key))
-	 (i 0) len func)
+  (let ((key (this-command-keys))
+	command func len (i 0))
+    (if (and mew-xemacs-p (= (length key) 0))
+	(setq key (vector last-command-event)))
+    (setq command (lookup-key (current-global-map) key))
     (if (numberp command)
 	(setq len command
 	      command (lookup-key (current-global-map)