Mercurial > hg > xemacs-beta
diff src/casetab.c @ 185:3d6bfa290dbd r20-3b19
Import from CVS: tag r20-3b19
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:55:28 +0200 |
parents | 131b0175ea99 |
children | 677f6a0ee643 |
line wrap: on
line diff
--- a/src/casetab.c Mon Aug 13 09:54:24 2007 +0200 +++ b/src/casetab.c Mon Aug 13 09:55:28 2007 +0200 @@ -84,7 +84,7 @@ while (tem = Fcase_table_p (obj), NILP (tem)) obj = wrong_type_argument (Qcase_table_p, obj); return (obj); -} +} DEFUN ("current-case-table", Fcurrent_case_table, 0, 1, 0, /* Return the case table of BUFFER, which defaults to the current buffer. @@ -93,7 +93,7 @@ { Lisp_Object down, up, canon, eqv; struct buffer *buf = decode_buffer (buffer, 0); - + down = buf->downcase_table; up = buf->upcase_table; canon = buf->case_canon_table; @@ -327,7 +327,7 @@ SET_TRT_TABLE_CHAR_1 (tem, i, lowered); } - + #ifdef MULE tem = make_mirror_trt_table (tem); Vmirror_ascii_downcase_table = tem; @@ -337,7 +337,7 @@ tem = MAKE_TRT_TABLE (); Vascii_upcase_table = tem; Vascii_eqv_table = tem; - + for (i = 0; i < 256; i++) { unsigned char flipped = (isupper (i) ? tolower (i)