 (defconst DEBUG nil)
 (defun kasumi-debug-print (str &optional force)
   (if (or DEBUG force)
-      (let ((prev (current-buffer)))
-        (progn
-          (switch-to-buffer (process-buffer shiranui-process))
-          (goto-char (point-max))
-          (insert str)
-          (insert "\n")
-          (switch-to-buffer prev)))))
+      (save-current-buffer
+        (set-buffer  (process-buffer shiranui-process))
+        (goto-char (point-max))
+        (insert str)
+        (insert "\n"))))
 
 
 ;; need newline end of string?

    )
  ))

(defun kasumi-lift-sub (from to)
  (kasumi-send-command kasumi-command-lift
                       (format "%d %d"

  (progn
    (kasumi-remove-all-dive-overlay)
    (if (not DEBUG)
        (save-current-buffer
          (progn
            (set-buffer (process-buffer shiranui-process))
            (erase-buffer))))))

(defun kasumi-select-explore-sub ()
  (interactive)
