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

diff --git a/src/ccl.c b/src/ccl.c
index 108ede4..f3d31cd 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);
 }