Re: Invalid (FSF Emacs) key format (see doc of define-key)" S-right

[Katsumi Yamaoka <yamaoka@xxxxxxx>]

>>>>> In [emacs-w3m : No.03565]
>>>>>	Taiji.Can@grd.advantest.co.jp wrote:

菅さん> While compiling toplevel forms in file [...]mime-w3m.el:
菅さん>   !! error (("Invalid (FSF Emacs) key format (see doc of
菅さん>   define-key)" S-right))

菅さん> と、define-key がおかしいと出ます。ひょっとすると、

これについて渡辺正さんからパッチをいただいていましたので、先ほど
幹と emacs-w3m-1_3 に commit しました。以下 [emacs-w3m:03562] か
らの抜粋です。

--- w3m.el.orig	2002-06-26 17:42:18.000000000 +0900
+++ w3m.el	2002-06-26 17:52:36.000000000 +0900
@@ -4781,8 +4781,12 @@ If EMPTY is non-nil, the created buffer 
     (define-key map "?" 'describe-mode)
     (define-key map ">" 'w3m-scroll-left)
     (define-key map "<" 'w3m-scroll-right)
-    (define-key map [S-right] 'w3m-shift-left)
-    (define-key map [S-left] 'w3m-shift-right)
+    (if (featurep 'xemacs)
+	(progn
+	  (define-key map [(shift right)] 'w3m-shift-left)
+	  (define-key map [(shift left)] 'w3m-shift-right))
+      (define-key map [S-right] 'w3m-shift-left)
+      (define-key map [S-left] 'w3m-shift-right))
     (define-key map "\M-l" 'w3m-horizontal-recenter)
     (define-key map "\C-a" 'w3m-beginning-of-line)
     (define-key map "\C-e" 'w3m-end-of-line)
で、いままで commit をサボっていたのは

>>>>> In [emacs-w3m : No.03562] 渡辺正さん wrote:

渡辺さん> # left と right の対応は、これでいいのでしょうか?

ということを検証する暇がとれなかったからでした。ごめんなさい。
そして渡辺さん、どうもありがとうございました。
-- 
Katsumi Yamaoka <yamaoka@jpl.org>