[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: Firefox style menu



From: Katsumi Yamaoka <yamaoka@xxxxxxx> さん曰く
Subject: [emacs-w3m:08674] Re: Firefox style menu
Message-ID: <b4mves5ujow.fsf@xxxxxxx>
Date: Wed, 17 May 2006 17:41:51 +0900

> > (define-key w3m-mode-map [mouse-3] 'mouse-major-mode-menu)
> 
> > としています。
> 
> なるほど。これはもしかしたらこのまんまでも良いかも。:)

XEmacs のことはなにも考えていないけど、

(defun w3m-mouse-major-mode-menu (event prefix)
  "Pop up a W3M mode-specific menu of mouse commands."
  (interactive "@e\nP")
  (let ((prewin (selected-window))
	(prepos (point))
	(posn (event-start event)))
    (select-window (posn-window posn))
    (if (numberp (posn-point posn))
	(goto-char (posn-point posn)))
    (mouse-major-mode-menu event prefix)
    (when (window-live-p prewin)
      (set-buffer (window-buffer prewin))
      (goto-char prepos))))

ぐらいはしておいた方が menu bar なのか右クリックなのか考えないで
よいので楽みたいです。

> > ## 日本語化!!
> 
> ;; 日本語の TrueType が使えるようになったら考えるけど、今はきちゃ
> ;; ないので、どうでもいいや。;-p

やっちゃいました。^^;;;
w3m-use-japanese-menu => nil で(みんな)英語になります。

# 変な日本語があったら指摘してください。

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