From: Kenichi Handa <handa@m17n.org>
Date: Mon, 20 Apr 1998 02:14:57 +0000 (+0000)
Subject: (Fregister_ccl_program): Put ccl-program-idx property to NAME.
X-Git-Tag: emacs-20.3~1410
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b23c24408275316812ba77bd167b0fca0a45cd5c;p=emacs.git

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

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);
 }