Re: emacs-w3m-1.2.51 (non-member post)

[watanabe@xxxxxxxxxxxxxxx ( 渡辺 潜 / Tadashi Watanabe)]

渡辺と申します。

>>>>> In [emacs-w3m : No.03560] 
>>>>>	TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:

土>     http://emacs-w3m.namazu.org/w3m_el-1.2.51.tar.gz

土> If you volunteer, please give a try to this.  Any bug reports are
土> highly appreciated.

XEmacs で、

Compiling /tmp/w3m_el-1.2.51/mime-w3m.el...
While compiling toplevel forms in file /tmp/w3m_el-1.2.51/mime-w3m.el:
  !! Invalid argument (("Invalid (FSF Emacs) key format (see doc of define-key)" S-right))

となります。

--- 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)

# left と right の対応は、これでいいのでしょうか?

-- 
WATANABE, Tadashi