   (setq-local comment-start "#")
   (make-local-variable 'receive-in-progress)
   (make-local-variable 'receiving-str)
+  ;; ((where diff))
+  (set (make-local-variable 'point-diff) '())
   (set (make-local-variable 'shiranui-process)
        (if (null kasumi-where-is-shiranui)
            (kasumi-start-shiranui (read-file-name "Shiranui Path:"))

(defun kasumi-refresh (beg end length)
  (progn
    (kasumi-remove-all-overlay)
    (kasumi-send-load)))

;; http://www.emacswiki.org/emacs/ModeTutorial

(defvar kasumi-mode-hook nil)
(defvar kasumi-mode-map
  (let ((map (make-keymap)))
    (define-key map "\C-\\" 'kasumi-refresh) ;; inspect?
    map)
  "Keymap for Kasumi Major mode")

