nicola/skk-nicola.elのnext-command-eventについて

[aaa70]

123 の変更に伴いnicola/skk-nicola.elの修正もお願いいたします。

@@ -476,7 +476,7 @@ abbrev $B$HF1$8%-!<$K$9$k>l9g$O(B skk-nicola-prefix-suffix-abbrev-chars $B$r;
    (call-interactively 'self-insert-command t))
     ;; else
     (let ((last last-command-event)
-     (next (next-command-event))
+     (next (read-event))
      char)
       (if (eq last next)
      ;; then
@@ -546,7 +546,7 @@ abbrev $B$HF1$8%-!<$K$9$k>l9g$O(B skk-nicola-prefix-suffix-abbrev-chars $B$r;
       ;; Some key's pressed.
       (setq time2 (skk-nicola-format-time (current-time)))
       ;;
-      (setq next-event (next-command-event)
+      (setq next-event (read-event)
        next (skk-nicola-event-to-key next-event))
       (cond
        ((skk-nicola-maybe-double-p this-command next)
@@ -630,7 +630,7 @@ abbrev $B$HF1$8%-!<$K$9$k>l9g$O(B skk-nicola-prefix-suffix-abbrev-chars $B$r;
             time2)
      str (if (characterp next)
          (skk-char-to-unibyte-string next))
-     third-event (next-command-event)
+     third-event (read-event)
      third (skk-nicola-event-to-key third-event))
     (cond
      ((and

[tkita]

ご指摘ありがとうございます。 修正しました。