[plamo:14550] Re: -> .emacs

[MOUE Kiyoshi]

----+----1----+----2----+----3----+----4----+----5----+----6----+----7

今晩は、MOUE です。

〜≫ in reply to your mail below ≪〜
From: Chisato Yamauchi <cyamauch@hst.phyas.aichi-edu.ac.jp>
Subject: [plamo:14545] Re: -> .emacs
Date: Thu, 04 Jul 2002 17:40:08 +0900

> > ;;URLがあればマウス中ボタンクリックでNetcapeを開く
> 
>   これはデフォルトに取り込んでしまおうと思います :-)

うちでは Emacs-w3m も取り込んでいるので、ちょっと違うですが、

---//----- .emacs ---------------------------//---

;;; Emacs-W3m を対応するブラウザに設定する書式

(defun browse-url-w3m (url &optional new-window)
  "Ask the w3m WWW browser to load URL.
Default to the URL around or before point."
  (interactive (browse-url-interactive-arg "W3M URL: "))
  (require 'w3m)
  (if new-window (split-window))
       (w3m url))

;;; w3m を指定する。
(setq browse-url-browser-function 'browse-url-w3m) 

;;; X 環境では、Netscape か mozilla 、コンソールでは w3m を使う設定

(if window-system
    (setq browse-url-browser-function 'browse-url-netscape)
    (setq browse-url-browser-function 'browse-url-w3m)
  )

;;; netscape の指定で mozilla を起動するために、
;;; (どこかに mozilla が起動していれば mozilla 上に表示されるが、
;;;  起動していないと、netscape が起動してしまうので。)

(setq browse-url-netscape-program "~/mozilla/mozilla")

;;; tty でキーボードから Emacs-W3m を起動するための設定

(global-set-key "\C-c\C-z" 'browse-url-at-point)

---//------------------------- end ------------------//---

尚、うちの環境では、.mew.el に、

;;; mouse の中ボタンで、カーサのある付近の URL を Netscape に表示
 (add-hook 'mew-message-mode-hook
          (function
           (lambda ()
             (local-set-key [mouse-2] 'browse-url-at-mouse)
             )))

と書いています。

-- 
+----------+----------+----------+----------+----------+
MOUE                  << Plamo Linux >>
kmoue@sky-mue.jp
kmoue@plamo.linet.gr.jp  << Plamo Documentation Project >>
zebra7@seagreen.ocn.ne.jp