changeset 21665:2f6a8ae78e88

(Fregister_ccl_program): Put ccl-program-idx property to NAME.
author Kenichi Handa <handa@m17n.org>
date Mon, 20 Apr 1998 02:14:57 +0000
parents 4097e558fa19
children ca3450740546
files src/ccl.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/ccl.c	Mon Apr 20 02:14:57 1998 +0000
+++ b/src/ccl.c	Mon Apr 20 02:14:57 1998 +0000
@@ -1856,6 +1856,7 @@
     }
 
   XVECTOR (Vccl_program_table)->contents[i] = Fcons (name, ccl_prog);
+  Fput (name, Qccl_program_idx, make_number (i));
   return make_number (i);
 }