WOMO

2ch-mode で右クリックとアプリケーションキーの動作を同じにする on xyzzy

Posted at Thu, 01 Jun 2006 in computer::xyzzy | WriteBacks (2)

アプリケーションキーというのは、右の Ctrl キーの左隣にあるメニューとカーソルが書いてあるキーのことです。
存在は知っていたけれど名前は今調べてわかりました。
Mac とかノートパソコンとか古い（Windows キーがついていないような）キーボードとかだとついていないこともあるみたいです。

2ch-mode でついアプリケーションキーを押してしまい、標準のポップアップが立ち上がってしまうのがなんとかならないか、ということで ~/lisp/mouse.l から適当にコピペして作りました。~/.2ch/config.l に記述します。
かめ～るとか www-mode とかも同じ要領でできるはず。

;;;;;;;;;;;;;;;;;;
;; ■ アプリケーションキーとマウスの右クリックを同じにする
(defun apps-popup ()
  (interactive)
  (let ((*last-mouse-window* (selected-window))
        (*last-mouse-line* (current-virtual-line-number))
        (*last-mouse-column* (current-virtual-column)))
    (2ch-mouse-right-press)))
(define-key *board-map* #\Apps 'apps-popup)
(define-key *bookmark-map* #\Apps 'apps-popup)
(define-key *form-map* #\Apps 'apps-popup)
(define-key *grep-map* #\Apps 'apps-popup)
(define-key *history-map* #\Apps 'apps-popup)
(define-key *http-map* #\Apps 'apps-popup)
(define-key *menu-map* #\Apps 'apps-popup)
(define-key *search-map* #\Apps 'apps-popup)
(define-key *tracking-map* #\Apps 'apps-popup)
(define-key *view-map* #\Apps 'apps-popup)