Mercurial > hg > xemacs-beta
comparison src/unicode.c @ 5345:db326b8fe982
Use Ben's recently-introduced listu (), where appropriate.
2011-01-23 Aidan Kehoe <kehoea@parhasard.net>
* file-coding.c (complex_vars_of_file_coding):
* intl-win32.c (complex_vars_of_intl_win32):
* profile.c (Fget_profiling_info):
* unicode.c (complex_vars_of_unicode):
Replace various awkward calls to nconc2 () with list6 () with
analogous calls to Ben's relatively-recently introduced listu (),
constructing a list from an arbitrary number of C arguments.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 23 Jan 2011 12:47:02 +0000 |
| parents | c096d8051f89 |
| children | 3889ef128488 0af042a0c116 |
comparison
equal
deleted
inserted
replaced
| 5344:2a54dfbe434f | 5345:db326b8fe982 |
|---|---|
| 3292 /* We used to define this in unicode.el. But we need it early for | 3292 /* We used to define this in unicode.el. But we need it early for |
| 3293 Cygwin 1.7 -- used in LOCAL_FILE_FORMAT_TO_TSTR() et al. */ | 3293 Cygwin 1.7 -- used in LOCAL_FILE_FORMAT_TO_TSTR() et al. */ |
| 3294 Fmake_coding_system_internal | 3294 Fmake_coding_system_internal |
| 3295 (Qutf_8, Qunicode, | 3295 (Qutf_8, Qunicode, |
| 3296 build_defer_string ("UTF-8"), | 3296 build_defer_string ("UTF-8"), |
| 3297 nconc2 (list4 (Qdocumentation, | 3297 listu (Qdocumentation, |
| 3298 build_defer_string ( | 3298 build_defer_string ( |
| 3299 "UTF-8 Unicode encoding -- ASCII-compatible 8-bit variable-width encoding\n" | 3299 "UTF-8 Unicode encoding -- ASCII-compatible 8-bit variable-width encoding\n" |
| 3300 "sharing the following principles with the Mule-internal encoding:\n" | 3300 "sharing the following principles with the Mule-internal encoding:\n" |
| 3301 "\n" | 3301 "\n" |
| 3302 " -- All ASCII characters (codepoints 0 through 127) are represented\n" | 3302 " -- All ASCII characters (codepoints 0 through 127) are represented\n" |
| 3303 " by themselves (i.e. using one byte, with the same value as the\n" | 3303 " by themselves (i.e. using one byte, with the same value as the\n" |
| 3315 " character are disjoint, so moving backwards is easy.\n" | 3315 " character are disjoint, so moving backwards is easy.\n" |
| 3316 "\n" | 3316 "\n" |
| 3317 " -- Given only the leading byte, you know how many following bytes\n" | 3317 " -- Given only the leading byte, you know how many following bytes\n" |
| 3318 " are present.\n" | 3318 " are present.\n" |
| 3319 ), | 3319 ), |
| 3320 Qmnemonic, build_ascstring ("UTF8")), | 3320 Qmnemonic, build_ascstring ("UTF8"), |
| 3321 list2 (Qunicode_type, Qutf_8))); | 3321 Qunicode_type, Qutf_8, |
| 3322 } | 3322 Qunbound)); |
| 3323 } |