    ((> keisen-width 1) (message "$B:Y$$7S@~$r;HMQ$7$^$9(B") (setq keisen-width 1))
    (t (message  "$BB@$$7S@~$r;HMQ$7$^$9(B") (setq keisen-width 2))
    ))
- 
+
 (defun keisen-opposite-direction (dir)
   (cond
    ((= dir keisen-right) keisen-left)

  "$B7S@~%-%c%i%/%?$N3FJ}8~$N;^$NM-L5$r(B8$B%S%C%H$GI=8=$9$k!#(B
$B%$%s%G%C%/%9$N>e0L(B4$B%S%C%H$OB@$$@~$NM-L5$r<($7!"2<0L(B4$B%S%C%H$,(B
$B:Y$$@~$NM-L5$r<($9!#(B")
 
(defvar keisen-width 1
  "$B7S@~$NB@$5!#(B1$B$N$H$-:Y$/!"(B2$B0J>e$N$H$-B@$$!#(B")
 
(defun keisen-toggle-width ()
  "$B7S@~$NB@$5$r@Z$j49$($k(B"
  (interactive)

   ((eq command 'keisen-down-move) keisen-down)
   ((eq command t) keisen-last-direction) ; 93.8.5 by T.Masui
   (t 0)))

(defun keisen-new-string ()		; 92.7.13 by K.Handa -- Big change
  (let (pos factor str old-direction new-direction)
    (setq old-direction (keisen-direction last-command))
