From: Kenichi Handa <handa@m17n.org>
Date: Fri, 23 Mar 2001 10:45:20 +0000 (+0000)
Subject: (encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so
X-Git-Tag: emacs-pretest-21.0.101~195
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c8d5b4b784cadd5ae39df3beeab13aa5f4b194f;p=emacs.git

(encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so
that CCL program handling multibyte sequence can work correctly.
(encoded-kbd-setup-keymap): Fix the default value of `valid-codes'
property of the coding system.
---

diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index ef1fd423004..68a04bafff4 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -237,10 +237,14 @@ The following key sequence may cause multilingual text insertion."
 (defun encoded-kbd-self-insert-ccl ()
   (interactive)
   (let ((str (char-to-string last-command-char))
-	(coding (keyboard-coding-system)))
-    (setq str (decode-coding-string str coding))
+	(ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4)))
+	(vec (make-vector 9 nil))
+	result)
+    (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
+      (setq str (format "%s%c" str (read-char-exclusive))
+	    vec (make-vector 9 nil)))
     (setq unread-command-events
-	  (append (string-to-list str) unread-command-events))))
+	  (append (string-to-list result) unread-command-events))))
 
 (defun encoded-kbd-setup-keymap (coding)
   ;; At first, reset the keymap.
@@ -277,7 +281,7 @@ The following key sequence may cause multilingual text insertion."
 
    ((eq encoded-kbd-coding 'ccl)
     (let ((valid-codes (or (coding-system-get coding 'valid-codes)
-			   '((128 255))))
+			   '((128 . 255))))
 	  elt from to)
       (while valid-codes
 	(setq elt (car valid-codes) valid-codes (cdr valid-codes))