emacs

;; my function
;; gaucheのためのelisp関数
;; カーソル下のwordのリファレンスをブラウザに表示する関数

 
(defun browse-url-web-firefox (url)
  (interactive (browse-url-interactive-arg ""))
  (x-set-selection 'PRIMARY url)
  (start-process "WebFirefox" nil
		 "D:\\Mozilla FireFox\\firefox.exe" url))
(defun create-http (topics-name)
  (let ((http-base "http://www.shiro.dreamhost.com/scheme/gauche/man/?l=jp&p="))
    (concat http-base topics-name)))
(defun gauche-browse-reference-currentword (arg)
  ""
  (interactive "p")
  (browse-url-web-firefox (create-http (current-word))))

;; http://sophere.s7.xrea.com/diary200403.html