01/10/05 01:13
これを.emacsに追記してますが、
(setq browse-url-ftxbrowser-sleep-time 1)
(setq browse-url-ftxbrowser-program "/memcard/bin/ftxBrowser")
(setq browse-url-browser-function 'browse-url-ftxbrowser)
(defun browse-url-ftxbrowser (url &optional new-window)
(interactive (browse-url-interactive-arg "URL: "))
(let ((proc (start-process "ftx" nil
shell-file-name shell-command-switch
(format "%s \"%s\"" browse-url-ftxbrowser-program url))))
(sleep-for browse-url-ftxbrowser-sleep-time)
(delete-process proc)))
list-processの結果はこんな感じで、URLを開くたびにどんどん増えていってしまいます。
Proc Status Buffer Tty Command
---- ------ ------ --- -------
/memcard/bin/ftxbrowser.exeURLﾘﾝｸ(users.goo.ne.jp) run (none) (none) /memcard/bin/ftxbrowser.exe URLﾘﾝｸ(users.goo.ne.jp)
/memcard/bin/ftxbrowser.exeURLﾘﾝｸ(cwaweb.bai.ne.jp) run (none) (none) /memcard/bin/ftxbrowser.exe URLﾘﾝｸ(cwaweb.bai.ne.jp)
/memcard/bin/ftxbrowser.exeURLﾘﾝｸ(www.rainer-keuchel.de) run (none) (none) /memcard/bin/ftxbrowser.exe URLﾘﾝｸ(www.rainer-keuchel.de)