From b23c24408275316812ba77bd167b0fca0a45cd5c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 20 Apr 1998 02:14:57 +0000 Subject: [PATCH] (Fregister_ccl_program): Put ccl-program-idx property to NAME. --- src/ccl.c | 1 + 1 file changed, 1 insertion(+) 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); } -- 2.39.2