From 61011fe65e02e28fcff91958e774ae14503387bb Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 9 Nov 1999 11:34:17 +0000
Subject: [PATCH] (SPLIT_CHAR): Don't make new cell if a charset slot is
 found.

---
 src/char-ucs.h |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/char-ucs.h b/src/char-ucs.h
index 6c51a89..7163c9e 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -488,8 +488,9 @@ SPLIT_CHAR (Emchar c)
 
 	  if (!EQ (charset, Qnil))
 	    {
-	      if (!EQ (field = Fcdr (Fassq (charset, cdef)), Qnil) ||
-		  !EQ (field = range_charset_code_point (charset, c), Qnil))
+	      if (!NILP (field = Fassq (charset, cdef)))
+		return field;
+	      else if (!NILP (field = range_charset_code_point (charset, c)))
 		return Fcons (charset, field);
 	    }
 	  charsets = Fcdr (charsets);	      
-- 
1.7.10.4