* its.el (its-get-keyseq-syl): Use egg-characterp instead of

numberp.

diff --git a/ChangeLog b/ChangeLog
index 1ab6fbb..0bc8724 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
 
+       * its.el (its-get-keyseq-syl): Use egg-characterp instead of
+       numberp.
+
+2001-07-09  Yoshiki Hayashi <yoshiki@xemacs.org>
+
        * egg-edep.el: Define compatibility functions.
        (egg-characterp): New function.
 

diff --git a/its.el b/its.el
index 25728ea..8d05597 100644 (file)
--- a/its.el
+++ b/its.el
@@ -130,7 +130,7 @@
 ;; <key-state-table> ::= ( <key-state-alist> . <expr-output-back-list> )
 ;; <key-state-alist> ::= ( <key-state> ... )
 ;; <key-state> ::= ( <key> . <state> )
-;; <key> ::= Positive INTEGER which specifies KEY STROKE
+;; <key> ::= CHARACTER which specifies KEY STROKE
 ;;        |  -1 ; means END of key stroke
 ;;
 ;; Only applicable for last transition.
@@ -213,7 +213,7 @@
           l)
          ((numberp l)                  ; VSYL
           (car syl))
-         ((numberp (cdr l))
+         ((egg-characterp (cdr l))
           (substring (car l) 0 (cdr l)))
          (t
           (car l)))))