Fix #58

ChangeLog

@@ -1,6 +1,7 @@
 2017-07-09  Tsuyoshi Kitamoto  <tsuyoshi.kitamoto@gmail.com>
 
 	* skk-annotation.el (skk-annotation-wait-for-input): Fix indent.
+	(skk-annotation-wait-for-input): Fix #58.
 
 	* skk.el (skk-compile-rule-list): Fix indent.
 

skk-annotation.el

@@ -705,7 +705,14 @@ NO-PREVIOUS-ANNOTATION $B$r;XDj(B (\\[Universal-Argument] \\[skk-annotation-ad
 $B%-!<F~NO$NFbMF$K$h$C$F%"%N%F!<%7%g%s$N%3%T!<!">pJs8;(B URL $B$N%V%i%&%:!"$^$?$O(B
 $BJL$N>pJs8;$+$i$N0UL#<hF@$r9T$&!#(B"
   (let* ((copy-command (key-binding skk-annotation-copy-key))
-	 (browse-command (key-binding skk-annotation-browse-key))
+;;;	 (browse-command (key-binding skk-annotation-browse-key))
+         ;; * skk-kakutei-key $B$,(B $BI8=`(B C-j $B$G$"$l$P!"(Bbrowse-command $B$O(B C-o $B$N(B open-line() $B$H$J$k!#(B
+         ;; * skk-kakutei-key $B$,(B skk-annotation-browse-key $B$H>WFM$9$k(B C-o $B$G$"$l$P!"(B
+         ;;   browse-command $B$O(B skk-insert() $B$H$J$k!#(B SPC $B$b(B skk-insert() $B$G$"$k$?$a!"(B
+         ;;   $B7k2L$H$7$F(B SPC $B$NBG80$G(B browse-command $B$H$J$C$F$7$^$&!#(B
+         ;; * skk-kakutei-key $B$,(B skk-insert() $B$J$N$O(B skk-compile-rule-list() $B;2>H$N$3$H!#(B
+         (it (key-binding skk-annotation-browse-key))     ; Fix #58
+         (browse-command (if (eq 'skk-insert it) nil it)) ; Fix #58
 	 (list (list copy-command browse-command))
 	 event key command urls note cache char digit exit)
     (while (and (not exit)