[Mew-dist 778] [1.68] mew-draft-keyswitch bug

[SAKAI Kiyotaka]

mew-draft-keyswitch で、

・universal-argument を2つ以上の key sequence (例えば ESC-u など) に
  bind している場合にうまく動きません。
・ESC + 数字キーに bind されている digit-argument がうまく動きません。

この問題を修正するパッチです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-draft.el,v
retrieving revision 1.1
diff -u -r1.1 mew-draft.el
--- mew-draft.el	1997/03/31 00:49:01	1.1
+++ mew-draft.el	1997/03/31 00:59:20
@@ -874,9 +874,13 @@
 
 (defun mew-draft-keyswitch ()
   (interactive)
-  (let* ((key (this-command-keys)) (len (length key)) (i 0) func)
-    (if (eq (lookup-key (current-global-map) (char-to-string (aref key 0)))
-	    'universal-argument)
+  (let* ((key (this-command-keys)) (len (length key))
+	 (command (lookup-key (current-global-map) key))
+	 (i 0) func)
+    (if (numberp command)
+	(setq command
+	      (lookup-key (current-global-map) (substring key 0 command))))
+    (if (or (eq command 'universal-argument) (eq command 'digit-argument))
 	(catch 'keyswitch
 	  (while (< i len)
 	    (if (eq 'mew-draft-keyswitch