gauche-info-index.el

;;http://blog.livedoor.jp/naoya_t/archives/51350496.html
;;switch-to-buffer-other-window しないのが僕ごのみ
(defun gauche-info-index (topic)
  (interactive
   (list (read-string
	  (concat "Gauche help topic : ")
          (current-word))))
  (get-buffer-create "*info*")
  (info "/usr/share/info/gauche-refe.info.gz")
  (Info-index topic))