From: tomo <tomo>
Date: Thu, 31 Oct 2002 10:58:01 +0000 (+0000)
Subject: (charset_code_point): Add new argument `defined_only'.
X-Git-Tag: r21-2-44-utf-2000-m0_18-ecdo~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8c00609432e9bd45eb91edfa5a1724d8c14b1541;p=chise%2Fxemacs-chise.git.1

(charset_code_point): Add new argument `defined_only'.
(encode_char_1): Modify for `charset_code_point'.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index d5cb9fe..7b68791 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -704,7 +704,7 @@ MAKE_CHAR (Lisp_Object charset, int c1, int c2)
 extern Lisp_Object Vcharacter_attribute_table;
 
 int encode_builtin_char_1 (Emchar c, Lisp_Object* charset);
-int charset_code_point (Lisp_Object charset, Emchar ch);
+int charset_code_point (Lisp_Object charset, Emchar ch, int defined_only);
 int range_charset_code_point (Lisp_Object charset, Emchar ch);
 
 extern Lisp_Object Vdefault_coded_charset_priority_list;
@@ -721,7 +721,7 @@ encode_char_1 (Emchar ch, Lisp_Object* charset)
       *charset = Ffind_charset (Fcar (charsets));
       if (!NILP (*charset))
 	{
-	  int code_point = charset_code_point (*charset, ch);
+	  int code_point = charset_code_point (*charset, ch, 0);
 
 	  if (code_point >= 0)
 	    return code_point;