mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 02:20:21 -08:00
Code Issues Projects Releases Wiki Activity

(UPCASE_TABLE): Definition deleted.

Browse source 
(UPPERCASEP, LOWERCASEP, NOCASEP, UPCASE, UPCASE1, DOWNCASE)
(DOWNCASE_TABLE): Case tables are now char-tables.
(Vascii_upcase_table, Vascii_canon_table, Vascii_eqv_table):
Declarations deleted.
This commit is contained in:
Richard M. Stallman 1995-10-19 00:13:45 +00:00
parent 1e9b6335bb
commit c6a3c83c50
1 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/lisp.h
View file

@ -1227,42 +1227,39 @@ extern char *stack_bottom;
/* 1 if CH is upper case. */
#define UPPERCASEP(CH) \
(XSTRING (current_buffer->downcase_table)->data[CH] != (CH))
(XCHAR_TABLE (current_buffer->downcase_table)->contents[CH] != (CH))
/* 1 if CH is lower case. */
#define LOWERCASEP(CH) \
(!UPPERCASEP (CH) \
&& XSTRING (current_buffer->upcase_table)->data[CH] != (CH))
&& XCHAR_TABLE (current_buffer->upcase_table)->contents[CH] != (CH))
/* 1 if CH is neither upper nor lower case. */
#define NOCASEP(CH) (XSTRING (current_buffer->upcase_table)->data[CH] == (CH))
#define NOCASEP(CH) \
(XCHAR_TABLE (current_buffer->upcase_table)->contents[CH] == (CH))
/* Upcase a character, or make no change if that cannot be done. */
#define UPCASE(CH) \
(XSTRING (current_buffer->downcase_table)->data[CH] == (CH) \
(XCHAR_TABLE (current_buffer->downcase_table)->contents[CH] == (CH) \
? UPCASE1 (CH) : (CH))
/* Upcase a character known to be not upper case. */
#define UPCASE1(CH) (XSTRING (current_buffer->upcase_table)->data[CH])
#define UPCASE1(CH) (XCHAR_TABLE (current_buffer->upcase_table)->contents[CH])
/* Downcase a character, or make no change if that cannot be done. */
#define DOWNCASE(CH) (XSTRING (current_buffer->downcase_table)->data[CH])
#define DOWNCASE(CH) \
(XCHAR_TABLE (current_buffer->downcase_table)->contents[CH])
/* Current buffer's map from characters to lower-case characters. */
#define DOWNCASE_TABLE XSTRING (current_buffer->downcase_table)->data
#define DOWNCASE_TABLE XCHAR_TABLE (current_buffer->downcase_table)->contents
/* Table mapping each char to the next char with the same lowercase version.
This mapping is a no-op only for characters that don't have case. */
#define UPCASE_TABLE XSTRING (current_buffer->upcase_table)->data
extern Lisp_Object Vascii_downcase_table, Vascii_upcase_table;
extern Lisp_Object Vascii_canon_table, Vascii_eqv_table;
extern Lisp_Object Vascii_downcase_table;
/* Number of bytes of structure consed since last GC. */