From: Kenichi Handa <handa@m17n.org>
Date: Sat, 26 Feb 2000 01:13:11 +0000 (+0000)
Subject: (ccl_driver) [CCL_MapMultiple]: When the mapped value is
X-Git-Tag: emacs-pretest-21.0.90~4873
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1cab2020b3c5e74809b58fa71e1304def5ac6f2;p=emacs.git

(ccl_driver) [CCL_MapMultiple]: When the mapped value is
`lambda', set reg[RRR] to the map index.
(ccl_driver) [CCL_MapSingle]: When the mapped value is found, set
reg[RRR] to 0.  Otherwise, set it to -1.
---

diff --git a/src/ccl.c b/src/ccl.c
index 01d6dd6ca4b..0b11bafe7d2 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1450,6 +1450,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
 		      }
 		    else if (EQ (content, Qlambda))
 		      {
+			reg[RRR] = i;
 			break;
 		      }
 		    else
@@ -1492,13 +1493,13 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
 		  reg[RRR] = -1;
 		else
 		  {
+		    reg[RRR] = 0;
 		    content = XVECTOR (map)->contents[point];
 		    if (NILP (content))
 		      reg[RRR] = -1;
 		    else if (NUMBERP (content))
 		      reg[rrr] = XINT (content);
-		    else if (EQ (content, Qt))
-		      reg[RRR] = i;
+		    else if (EQ (content, Qt));
 		    else if (CONSP (content))
 		      {
 			attrib = XCAR (content);