From: hayashi <hayashi>
Date: Mon, 9 Jul 2001 06:30:02 +0000 (+0000)
Subject: * its.el (its-get-keyseq-syl): Use egg-characterp instead of
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2e9f2457f920ecb0891cc0cd5f1796140031a92b;p=elisp%2Ftamago.git

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

diff --git a/ChangeLog b/ChangeLog
index 1ab6fbb..0bc8724 100644
--- 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
--- 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)))))