三号機に於ける XEmacs のマウスのホイール

三号機（原子炉でない方）の X11 内の XEmacs 21.4 でマウスのホイールが使えなかったが以下の方法で改善した．

1. ターミナルで chmod で ~/.xemacs/init.el を編集可能にする．

$ cd .xemacs
$ chmod 777 init.el

2. emacs で init.el を起動．

$ emacs init.el 

3. init.el の任意の場所（他の関数の間に挟まない事）に以下をコピペ．

;; scroll on wheel of mouses                                                                                         

(if (not (boundp 'MULE))
    (if (featurep 'xemacs)
      ;; xemacs20, xemacs21                                                                                          
      (progn
        (define-key global-map 'button4
           '(lambda (&rest args)
                  (interactive)
                      (let ((curwin (selected-window)))
                             (select-window (car (mouse-pixel-position)))
                                   (scroll-down 5)
                                         (select-window curwin)
                                         )))
        (define-key global-map [(shift button4)]
           '(lambda (&rest args)
                  (interactive)
                      (let ((curwin (selected-window)))
                             (select-window (car (mouse-pixel-position)))
                                   (scroll-down 1)
                                         (select-window curwin)
                                         )))
        (define-key global-map [(control button4)]
           '(lambda (&rest args)
                  (interactive)
                      (let ((curwin (selected-window)))
                             (select-window (car (mouse-pixel-position)))
                                   (scroll-down)
                                         (select-window curwin)
                                         )))
       (define-key global-map 'button5
            '(lambda (&rest args)
                   (interactive)
                       (let ((curwin (selected-window)))
                               (select-window (car (mouse-pixel-position)))
                                     (scroll-up 5)
                                           (select-window curwin)
                                           )))
        (define-key global-map [(shift button5)]
            '(lambda (&rest args)
                   (interactive)
                       (let ((curwin (selected-window)))
                               (select-window (car (mouse-pixel-position)))
                                     (scroll-up 1)
                                           (select-window curwin)
                                           )))
        (define-key global-map [(control button5)]
            '(lambda (&rest args)
                   (interactive)
                       (let ((curwin (selected-window)))
                               (select-window (car (mouse-pixel-position)))
                                     (scroll-up)
                                           (select-window curwin)
                                          )))
       )
   )
)

4. emacs を閉じて chmod で init.el を編集不可能にする．

$ chmod 444 init.el

参考：
JUST LINUX