(Fregister_ccl_program): Put ccl-program-idx property to NAME.

diff --git a/src/ccl.c b/src/ccl.c
index 108ede448ad5ee232b5034c2f2670c2228863443..f3d31cd9a2d9dd23a4d84fdccda42d13369d4fc9 100644 (file)
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1856,6 +1856,7 @@ Return index number of the registered CCL program.")
     }
 
   XVECTOR (Vccl_program_table)->contents[i] = Fcons (name, ccl_prog);
+  Fput (name, Qccl_program_idx, make_number (i));
   return make_number (i);
 }