mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

* character.h (MAYBE_UNIFY_CHAR): Remove.

Browse source 
* charset.c, charset.h (maybe_unify_char): Now static.
* charset.c (decode_char): Use maybe_unify_char, not MAYBE_UNIFY_CHAR.
Since this stuff is now private to charset.c, there's no need for
a public macro and no need to inline by hand.
This commit is contained in:
Paul Eggert 2012-09-26 13:00:29 -07:00
parent 3a880af4a7
commit 41c8bfcfbe
4 changed files with 15 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ChangeLog
View file

@ -1,3 +1,11 @@
2012-09-26 Paul Eggert <eggert@cs.ucla.edu>
* character.h (MAYBE_UNIFY_CHAR): Remove.
* charset.c, charset.h (maybe_unify_char): Now static.
* charset.c (decode_char): Use maybe_unify_char, not MAYBE_UNIFY_CHAR.
Since this stuff is now private to charset.c, there's no need for
a public macro and no need to inline by hand.
2012-09-26 Tomohiro Matsuyama <tomo@cx4a.org>
Stefan Monnier <monnier@iro.umontreal.ca>
Juanma Barranquero <lekktu@gmail.com>

17
src/character.h
View file

@ -554,23 +554,6 @@ INLINE_HEADER_BEGIN
} while (0)
/* If C is a character to be unified with a Unicode character, return
the unified Unicode character. */
#define MAYBE_UNIFY_CHAR(c) \
do { \
if (c > MAX_UNICODE_CHAR && c <= MAX_5_BYTE_CHAR) \
{ \
Lisp_Object val; \
val = CHAR_TABLE_REF (Vchar_unify_table, c); \
if (INTEGERP (val)) \
c = XFASTINT (val); \
else if (! NILP (val)) \
c = maybe_unify_char (c, val); \
} \
} while (0)
/* Return a non-outlandish value for the tab width. */
#define SANE_TAB_WIDTH(buf) \

10
src/charset.c
View file

@ -1617,7 +1617,7 @@ only `ascii', `eight-bit-control', and `eight-bit-graphic'. */)
/* Return a unified character code for C (>= 0x110000). VAL is a
value of Vchar_unify_table for C; i.e. it is nil, an integer, or a
charset symbol. */
int
static int
maybe_unify_char (int c, Lisp_Object val)
{
struct charset *charset;
@ -1723,8 +1723,12 @@ decode_char (struct charset *charset, unsigned int code)
{
c = char_index + CHARSET_CODE_OFFSET (charset);
if (CHARSET_UNIFIED_P (charset)
&& c > MAX_UNICODE_CHAR)
MAYBE_UNIFY_CHAR (c);
&& MAX_UNICODE_CHAR < c && c <= MAX_5_BYTE_CHAR)
{
/* Unify C with a Unicode character if possible. */
Lisp_Object val = CHAR_TABLE_REF (Vchar_unify_table, c);
c = maybe_unify_char (c, val);
}
}
}

1
src/charset.h
View file

@ -538,7 +538,6 @@ extern int charset_unibyte;
extern struct charset *char_charset (int, Lisp_Object, unsigned *);
extern Lisp_Object charset_attributes (int);
extern int maybe_unify_char (int, Lisp_Object);
extern int decode_char (struct charset *, unsigned);
extern unsigned encode_char (struct charset *, int);
extern int string_xstring_p (Lisp_Object);