;; 長門ビューワ
(defun show-nagato ()
  "show 長門"
  (interactive)
  (and (y-or-n-p "(nagato)")
       (switch-to-buffer "*長門*")
       (insert-image
	(create-image "ngatao.jpg"))
       (read-from-minibuffer "hit enter key: ")
       (kill-buffer "*長門*")))