Mercurial > hg > xemacs-beta

comparison src/casetab.c @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 6330739388db
children de805c49cfc1
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
40 #include <config.h> 40 #include <config.h>
41 #include "lisp.h" 41 #include "lisp.h"
42 #include "buffer.h" 42 #include "buffer.h"
43 #include "opaque.h" 43 #include "opaque.h"
44 44
45 Lisp_Object Qcase_table_p; 45 Lisp_Object Qcase_tablep;
46 Lisp_Object Vascii_downcase_table, Vascii_upcase_table; 46 Lisp_Object Vascii_downcase_table, Vascii_upcase_table;
47 Lisp_Object Vascii_canon_table, Vascii_eqv_table; 47 Lisp_Object Vascii_canon_table, Vascii_eqv_table;
48 #ifdef MULE 48 #ifdef MULE
49 Lisp_Object Vmirror_ascii_downcase_table, Vmirror_ascii_upcase_table; 49 Lisp_Object Vmirror_ascii_downcase_table, Vmirror_ascii_upcase_table;
50 Lisp_Object Vmirror_ascii_canon_table, Vmirror_ascii_eqv_table; 50 Lisp_Object Vmirror_ascii_canon_table, Vmirror_ascii_eqv_table;
51 #endif 51 #endif
52 Lisp_Object Qtranslate_table;
53 52
54 static void compute_trt_inverse (Lisp_Object trt, Lisp_Object inverse); 53 static void compute_trt_inverse (Lisp_Object trt, Lisp_Object inverse);
55 54
56 #define STRING256_P(obj) (STRINGP (obj) && XSTRING_CHAR_LENGTH (obj) == 256) 55 #define STRING256_P(obj) (STRINGP (obj) && XSTRING_CHAR_LENGTH (obj) == 256)
57 56
79 check_case_table (Lisp_Object obj) 78 check_case_table (Lisp_Object obj)
80 { 79 {
81 REGISTER Lisp_Object tem; 80 REGISTER Lisp_Object tem;
82 81
83 while (tem = Fcase_table_p (obj), NILP (tem)) 82 while (tem = Fcase_table_p (obj), NILP (tem))
84 obj = wrong_type_argument (Qcase_table_p, obj); 83 obj = wrong_type_argument (Qcase_tablep, obj);
85 return (obj); 84 return (obj);
86 } 85 }
87 86
88 DEFUN ("current-case-table", Fcurrent_case_table, 0, 1, 0, /* 87 DEFUN ("current-case-table", Fcurrent_case_table, 0, 1, 0, /*
89 Return the case table of BUFFER, which defaults to the current buffer. 88 Return the case table of BUFFER, which defaults to the current buffer.
287 286
288 287
289 void 288 void
290 syms_of_casetab (void) 289 syms_of_casetab (void)
291 { 290 {
292 defsymbol (&Qcase_table_p, "case-table-p"); 291 defsymbol (&Qcase_tablep, "case-table-p");
293 defsymbol (&Qtranslate_table, "translate-table");
294 292
295 DEFSUBR (Fcase_table_p); 293 DEFSUBR (Fcase_table_p);
296 DEFSUBR (Fcurrent_case_table); 294 DEFSUBR (Fcurrent_case_table);
297 DEFSUBR (Fstandard_case_table); 295 DEFSUBR (Fstandard_case_table);
298 DEFSUBR (Fset_case_table); 296 DEFSUBR (Fset_case_table);
308 staticpro (&Vascii_downcase_table); 306 staticpro (&Vascii_downcase_table);
309 staticpro (&Vascii_upcase_table); 307 staticpro (&Vascii_upcase_table);
310 staticpro (&Vascii_canon_table); 308 staticpro (&Vascii_canon_table);
311 staticpro (&Vascii_eqv_table); 309 staticpro (&Vascii_eqv_table);
312 310
311 #ifdef MULE
312 staticpro (&Vmirror_ascii_downcase_table);
313 staticpro (&Vmirror_ascii_upcase_table);
314 staticpro (&Vmirror_ascii_canon_table);
315 staticpro (&Vmirror_ascii_eqv_table);
316 #endif
317
313 tem = MAKE_TRT_TABLE (); 318 tem = MAKE_TRT_TABLE ();
314 Vascii_downcase_table = tem; 319 Vascii_downcase_table = tem;
315 Vascii_canon_table = tem; 320 Vascii_canon_table = tem;
316 321
317 /* Under Mule, can't do set_string_char() until Vcharset_control_1 322 /* Under Mule, can't do set_string_char() until Vcharset_control_1