# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1022452951 0
# Node ID ab210513bef94726a7a2eeba990dabb160dfdcf5
# Parent  8b4e3bbe01d4569f93d33aed1c803d7f3e7d97ec
(encoded-kbd-setup-keymap) <ccl>:
Use :valid property.

diff -r 8b4e3bbe01d4 -r ab210513bef9 lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Sun May 26 22:42:00 2002 +0000
+++ b/lisp/international/encoded-kb.el	Sun May 26 22:42:31 2002 +0000
@@ -298,7 +298,7 @@
 	(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