   (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:"))

    (cons (kasumi-process-pair (car pairs-command-value))
          (kasumi-process-pairs (cdr pairs-command-value)))))

(defun kasumi-receive-syntaxerror (value)
  (message "there is syntaxerror")
  (if (not (= (length value) 0))
      (let ((beg-end-list (split-string value " ")))
        (kasumi-put-syntaxerror (string-to-number (nth 0 beg-end-list))
                                (string-to-number (nth 1 beg-end-list)))
        )))

(defun kasumi-receive-goodflyline (value)
  (let ((beg-end-list (split-string value " ")))
    (kasumi-put-goodflyline (string-to-number (nth 0 beg-end-list))
                            (string-to-number (nth 1 beg-end-list)))
    ))
(defun kasumi-receive-badflyline (value)
  (let ((beg-end-list (split-string value " ")))
    (kasumi-put-badflyline (string-to-number (nth 0 beg-end-list))
                           (string-to-number (nth 1 beg-end-list)))
    ))

;; beg end <- target

(defun kasumi-refresh (beg end length)
  (progn
    (kasumi-remove-all-overlay)
    (setq point-diff '())
    (kasumi-send-load)))

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