header-line でクルリン

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

白井です。

Firefox と emacs-w3m を同時に使っていると、よく emacs-w3m の
header-line でマウスホイールをクルリンとすることがあります。

# 普通しないか ^^;;

なので、ぼくの .emacs には↓なのが書いてあるのですが、

(when (and (not (featurep 'xemacs))
	   (>= emacs-major-version 21))
  (if (featurep 'meadow)
      (defadvice w3m-tab-make-keymap (after add-wheel activate)
	(define-key w3m-tab-map [header-line wheel-up] 'w3m-previous-buffer)
	(define-key w3m-tab-map [header-line wheel-down] 'w3m-next-buffer))
    ;; ASTEC-X だから普通の X のことがわからない
    (defadvice w3m-tab-make-keymap (after add-wheel activate)
      (define-key w3m-tab-map [header-line mouse-4] 'w3m-previous-buffer)
      (define-key w3m-tab-map [header-line mouse-5] 'w3m-next-buffer))))

コメントにある通りに普通の X でのマウスホイールのキーバインドが
わかりません。Meadow と同じで良いのかしら？

あるいは、単に

(define-key w3m-tab-map [header-line wheel-up] 'w3m-previous-buffer)
(define-key w3m-tab-map [header-line wheel-down] 'w3m-next-buffer)
(define-key w3m-tab-map [header-line mouse-4] 'w3m-previous-buffer)
(define-key w3m-tab-map [header-line mouse-5] 'w3m-next-buffer)

と羅列して問題ないかしら？

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxx)