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

1 files changed, 1 insertions, 0 deletions

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