From: Kenichi Handa <handa@m17n.org>
Date: Tue, 16 Jan 2001 08:28:01 +0000 (+0000)
Subject: (Fregister_ccl_program): Handle the return value of
X-Git-Tag: emacs-pretest-21.0.96~280
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/4d247a1f5734d0af7f7ec7cb770e8838ac55bddf

(Fregister_ccl_program): Handle the return value of
resolve_symbol_ccl_program correctly.
---

diff --git a/src/ccl.c b/src/ccl.c
index bd9c7d4deb..2b27a2c488 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -2111,11 +2111,15 @@ Return index number of the registered CCL program.")
     {
       CHECK_VECTOR (ccl_prog, 1);
       resolved = resolve_symbol_ccl_program (ccl_prog);
-      if (! NILP (resolved))
+      if (NILP (resolved))
+	error ("Error in CCL program");
+      if (VECTORP (resolved))
 	{
 	  ccl_prog = resolved;
 	  resolved = Qt;
 	}
+      else
+	resolved = Qnil;
     }
 
   for (idx = 0; idx < len; idx++)