[xyzzy:00007] Re: menu 拡張
- Subject: [xyzzy:00007] Re: menu 拡張
- From: Masahito Henmi <henmi@xxxxxxxxxxxxx>
- X-mailer: Denshin 8 Go V321.2b5
亀井さん、こんにちは。逸見 です。
> (add-hook 'ed::*html-mode-hook* 'html-mode-addin)
> とすると幸せになれます(^^
> *html-mode-hook* がまだ export されていないので、`ed::' で修飾しなきゃな
> らないところが不細工ですが。
どうも、ありがとうございます。今度直しておきます。
ところで、以前教えてもらった、右クリックのポップアップメニューも研究中です。
lispモードで右クリックしたら、例によって、なにか便利な事を起こそうかと。
(defun create-my-popup ()
(let ((menu nil))
(setq menu
(define-popup-menu
(:item nil "help:scan-buffer(&1)" 'help-scan-buffer)
(:item nil "help:help-window(&2)" 'help-help-window)
(:item nil "insert:merge-pathnames(&3)" 'insert-merge-pathnames)
:sep
(:item nil "&1:siteinit.l" 'open-siteinit)
)
)
(setq *my-popup-menu* menu)
)
)
(defun foo-popup ()
(interactive)
(set-window *last-mouse-window*) ; クリックされたウィンドウをアクティブに
(continue-pre-selection) ; セレクションを残す
(track-popup-menu ed::*my-popup-menu*)) ; ポップアップメニュー表示
(define-key ed::*lisp-interaction-mode-map*
#\RBtnDown 'foo-popup)
(define-key ed::*lisp-mode-map*
#\RBtnDown 'foo-popup)
言語モードごとに右メニューを変更することできました(^_^)/~~~
ところで、これに気をよくした私は、foo-popupをファンクションキーに
割り当ててみました。(ちょっとキーボードから手を放したくない時
ファンクションキーでもポップアップできないかと思って)
これ、うまく動いてくれませんでした。残念。これってやっぱり反則??
----- メニュー拡張ばっかりやっている私^^; -----
------------------------------------------------------------
逸見雅人 Email henmi@xxxxxxxxxxxxx
Masahito Henmi