Re: タブのシャフリング

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxx>]

白井です。

# もう一丁。

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxx> 曰く
Subject: Re: [emacs-w3m:09312] Re: タブのシャフリング
Message-ID: <20070330.185021.170111692.shirai.hideyuki@xxxxxxxxxxxxxxxxxxx>
Date: Fri, 30 Mar 2007 18:50:21 +0900 (JST)

> > ということは、直接 global-map を見ているんですかねえ。

いろいろ試験しましたが、w3m-mode-map をみて mouse-4 とかないから
(？) global-map まで突き抜けているのは確認出来ました。

ぼくの環境では下のパッチでうまく行きました。discard-input() はし
た方が動きがスムーズなのですが、これこそ環境依存かなぁ。

# 環境依存って言っても、X-Server+Emacs と Meadow 両方なんです
# が。。。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxx)

Index: w3m-ems.el
===================================================================
RCS file: /cvsroot/w3m-shirai/emacs-w3m/w3m-ems.el,v
retrieving revision 1.9
diff -u -u -r1.9 w3m-ems.el
--- w3m-ems.el	2007/03/30 01:17:27	1.9
+++ w3m-ems.el	2007/03/30 10:26:25
@@ -847,8 +847,8 @@
 	 (truncate (+ len (cdr w3m-tab-mouse-position-adjuster)))
 	 (cddr posn))
 	(when decelerate
-	  (sleep-for 0.1)
-	  (discard-input))))))
+	  (sleep-for 0.1))
+	(discard-input)))))
 
 (defun w3m-tab-next-buffer (&optional n event)
   "Turn N pages of emacs-w3m buffers ahead."
@@ -945,7 +945,15 @@
       (define-key w3m-tab-map [header-line C-mouse-5] move-right-action)
       (define-key w3m-mode-map [header-line double-mouse-1]
 	'w3m-goto-new-session-url)
-      (define-key w3m-mode-map [header-line mouse-3] menu-action2))
+      (define-key w3m-mode-map [header-line mouse-3] menu-action2)
+      (define-key w3m-mode-map [header-line mouse-4] 'w3m-tab-previous-buffer)
+      (define-key w3m-mode-map [header-line mouse-5] 'w3m-tab-next-buffer)
+      (define-key w3m-mode-map [header-line wheel-up] 'w3m-tab-previous-buffer)
+      (define-key w3m-mode-map [header-line wheel-down] 'w3m-tab-next-buffer)
+      (define-key w3m-mode-map [header-line C-wheel-up] 'w3m-tab-move-left)
+      (define-key w3m-mode-map [header-line C-wheel-down] 'w3m-tab-move-right)
+      (define-key w3m-mode-map [header-line C-mouse-4] 'w3m-tab-move-left)
+      (define-key w3m-mode-map [header-line C-mouse-5] 'w3m-tab-move-right))
     (unless w3m-tab-spinner-map
       (setq w3m-tab-spinner-map (make-sparse-keymap))
       (define-key w3m-tab-spinner-map [header-line mouse-2]