(defvar *Info-directory-backup* nil)

(defun s-info ()
    (interactive)
    (load "info")
    (setq *Info-directory-backup* Info-directory)
    (setq Info-directory (getenv "SUMO-INFO"))
    (if (get-buffer "*info*")
	(switch-to-buffer "*info*")
	(Info-directory)))

(defun s-info-kill ()
    (interactive)
    (setq Info-directory *Info-directory-backup*)
    (kill-buffer "*info*"))