Mercurial > hg > xemacs-beta
comparison src/intl-win32.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 | 0af042a0c116 |
comparison
equal
deleted
inserted
replaced
| 5344:2a54dfbe434f | 5345:db326b8fe982 |
|---|---|
| 2356 complex_vars_of_intl_win32 (void) | 2356 complex_vars_of_intl_win32 (void) |
| 2357 { | 2357 { |
| 2358 Fmake_coding_system_internal | 2358 Fmake_coding_system_internal |
| 2359 (Qmswindows_unicode, Qunicode, | 2359 (Qmswindows_unicode, Qunicode, |
| 2360 build_defer_string ("MS Windows Unicode"), | 2360 build_defer_string ("MS Windows Unicode"), |
| 2361 nconc2 (list4 (Qdocumentation, | 2361 listu (Qdocumentation, |
| 2362 build_defer_string ( | 2362 build_defer_string ( |
| 2363 "Converts to the Unicode encoding for Windows API calls.\n" | 2363 "Converts to the Unicode encoding for Windows API calls.\n" |
| 2364 "This encoding is equivalent to standard UTF16, little-endian." | 2364 "This encoding is equivalent to standard UTF16, little-endian." |
| 2365 ), | 2365 ), |
| 2366 Qmnemonic, build_ascstring ("MSW-U")), | 2366 Qmnemonic, build_ascstring ("MSW-U"), |
| 2367 list4 (Qunicode_type, Qutf_16, | 2367 Qunicode_type, Qutf_16, |
| 2368 Qlittle_endian, Qt))); | 2368 Qlittle_endian, Qt, |
| 2369 Qunbound)); | |
| 2369 | 2370 |
| 2370 #ifdef MULE | 2371 #ifdef MULE |
| 2371 /* Just temporarily. This will get fixed in mule-msw-init.el. */ | 2372 /* Just temporarily. This will get fixed in mule-msw-init.el. */ |
| 2372 Fdefine_coding_system_alias (Qmswindows_multibyte_system_default, | 2373 Fdefine_coding_system_alias (Qmswindows_multibyte_system_default, |
| 2373 Qraw_text); | 2374 Qraw_text); |