Mercurial > emacs

diff src/ccl.c @ 35322:ac015053a9a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fregister_ccl_program): Handle the return value of resolve_symbol_ccl_program correctly.
author Kenichi Handa <handa@m17n.org>
date Tue, 16 Jan 2001 08:28:01 +0000
parents a16dc29a46c7
children f4c8b11d4d36
line wrap: on
line diff
--- a/src/ccl.c	Tue Jan 16 08:27:47 2001 +0000
+++ b/src/ccl.c	Tue Jan 16 08:28:01 2001 +0000
@@ -2111,11 +2111,15 @@
     {
       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++)