(encoded-kbd-setup-keymap) <ccl>:

Use :valid property.

diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index 11cd3a6e3cd5362743c19eb8322bd47e7874a738..e66c9f0009e7225ff07434a0e542efc5bf44ea4c 100644 (file)
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -298,7 +298,7 @@ The following key sequence may cause multilingual text insertion."
        (setq i (1+ i)))))
 
    ((eq encoded-kbd-coding 'ccl)
-    (let ((valid-codes (or (coding-system-get coding 'valid-codes)
+    (let ((valid-codes (or (coding-system-get coding :valid)
                           '((128 . 255))))
          elt from to)
       (while valid-codes