Mercurial > hg > xemacs-beta

comparison src/casetab.c @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 131b0175ea99
children 677f6a0ee643
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
82 REGISTER Lisp_Object tem; 82 REGISTER Lisp_Object tem;
83 83
84 while (tem = Fcase_table_p (obj), NILP (tem)) 84 while (tem = Fcase_table_p (obj), NILP (tem))
85 obj = wrong_type_argument (Qcase_table_p, obj); 85 obj = wrong_type_argument (Qcase_table_p, obj);
86 return (obj); 86 return (obj);
87 } 87 }
88 88
89 DEFUN ("current-case-table", Fcurrent_case_table, 0, 1, 0, /* 89 DEFUN ("current-case-table", Fcurrent_case_table, 0, 1, 0, /*
90 Return the case table of BUFFER, which defaults to the current buffer. 90 Return the case table of BUFFER, which defaults to the current buffer.
91 */ 91 */
92 (buffer)) 92 (buffer))
93 { 93 {
94 Lisp_Object down, up, canon, eqv; 94 Lisp_Object down, up, canon, eqv;
95 struct buffer *buf = decode_buffer (buffer, 0); 95 struct buffer *buf = decode_buffer (buffer, 0);
96 96
97 down = buf->downcase_table; 97 down = buf->downcase_table;
98 up = buf->upcase_table; 98 up = buf->upcase_table;
99 canon = buf->case_canon_table; 99 canon = buf->case_canon_table;
100 eqv = buf->case_eqv_table; 100 eqv = buf->case_eqv_table;
101 101
325 { 325 {
326 unsigned char lowered = tolower (i); 326 unsigned char lowered = tolower (i);
327 327
328 SET_TRT_TABLE_CHAR_1 (tem, i, lowered); 328 SET_TRT_TABLE_CHAR_1 (tem, i, lowered);
329 } 329 }
330 330
331 #ifdef MULE 331 #ifdef MULE
332 tem = make_mirror_trt_table (tem); 332 tem = make_mirror_trt_table (tem);
333 Vmirror_ascii_downcase_table = tem; 333 Vmirror_ascii_downcase_table = tem;
334 Vmirror_ascii_canon_table = tem; 334 Vmirror_ascii_canon_table = tem;
335 #endif 335 #endif
336 336
337 tem = MAKE_TRT_TABLE (); 337 tem = MAKE_TRT_TABLE ();
338 Vascii_upcase_table = tem; 338 Vascii_upcase_table = tem;
339 Vascii_eqv_table = tem; 339 Vascii_eqv_table = tem;
340 340
341 for (i = 0; i < 256; i++) 341 for (i = 0; i < 256; i++)
342 { 342 {
343 unsigned char flipped = (isupper (i) ? tolower (i) 343 unsigned char flipped = (isupper (i) ? tolower (i)
344 : (islower (i) ? toupper (i) : i)); 344 : (islower (i) ? toupper (i) : i));
345 345