From: tomo <tomo>
Date: Thu, 2 Sep 1999 23:01:52 +0000 (+0000)
Subject: (CHAR_ASCII_P): Modify name of argument.
X-Git-Tag: r21-2-19-utf-2000-0_6-0~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0599d4394574f7541257410ce8feacf6be97d4ac;p=chise%2Fxemacs-chise.git-

(CHAR_ASCII_P): Modify name of argument.
(MAKE_CHAR): Delete comment about `FIELD2_TO_OFFICIAL_LEADING_BYTE'
and `FIELD2_TO_PRIVATE_LEADING_BYTE'.
(BREAKUP_CHAR): Modify name of arguments.
(CHAR_CHARSET): Modify name of argument.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index 36cdd4e..2db4ca3 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -30,7 +30,7 @@ Boston, MA 02111-1307, USA.  */
 
 #define valid_char_p(ch) 1
 
-#define CHAR_ASCII_P(c) ((c) <= 0x7F)
+#define CHAR_ASCII_P(ch) ((ch) <= 0x7F)
 
 
 /************************************************************************/
@@ -353,12 +353,7 @@ REP_BYTES_BY_FIRST_BYTE (int fb)
 
 
 /* Return a character whose charset is CHARSET and position-codes
-   are C1 and C2.  TYPE9N character ignores C2.
-
-   NOTE: This takes advantage of the fact that
-   FIELD2_TO_OFFICIAL_LEADING_BYTE and
-   FIELD2_TO_PRIVATE_LEADING_BYTE are the same.
-   */
+   are C1 and C2.  TYPE9N character ignores C2. */
 
 INLINE Emchar MAKE_CHAR (Lisp_Object charset, int c1, int c2);
 INLINE Emchar
@@ -546,17 +541,17 @@ breakup_char_1 (Emchar c, Lisp_Object *charset, int *c1, int *c2)
     }
 }
 
-#define BREAKUP_CHAR(c, charset, c1, c2) \
-  breakup_char_1 (c, &(charset), &(c1), &(c2))
+#define BREAKUP_CHAR(ch, charset, b1, b2) \
+  breakup_char_1 (ch, &(charset), &(b1), &(b2))
 
-INLINE Lisp_Object CHAR_CHARSET (Emchar c);
+INLINE Lisp_Object CHAR_CHARSET (Emchar ch);
 INLINE Lisp_Object
-CHAR_CHARSET (Emchar c)
+CHAR_CHARSET (Emchar ch)
 {
   Lisp_Object charset;
-  int c1, c2;
+  int b1, b2;
 
-  BREAKUP_CHAR(c, charset, c1, c2);
+  BREAKUP_CHAR(ch, charset, b1, b2);
   return charset;
 }