Mercurial > hg > xemacs-beta

comparison src/file-coding.c @ 4521:383ab474a241

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix docstring typo.
author Stephen J. Turnbull <stephen@xemacs.org>
date Tue, 28 Oct 2008 10:38:26 +0900
parents cee827542370
children fc7067b7f407
comparison
equal deleted inserted replaced
4520:279cadceaa13 4521:383ab474a241
895 } 895 }
896 } 896 }
897 897
898 struct subsidiary_type 898 struct subsidiary_type
899 { 899 {
900 Ascbyte *extension; 900 const Ascbyte *extension;
901 Ascbyte *mnemonic_ext; 901 const Ascbyte *mnemonic_ext;
902 enum eol_type eol; 902 enum eol_type eol;
903 }; 903 };
904 904
905 static struct subsidiary_type coding_subsidiary_list[] = 905 static struct subsidiary_type coding_subsidiary_list[] =
906 { { "-unix", "", EOL_LF }, 906 { { "-unix", "", EOL_LF },
942 (decodes byte->char), we need to coerce it to one by the appropriate 942 (decodes byte->char), we need to coerce it to one by the appropriate
943 wrapping in CANONICAL. */ 943 wrapping in CANONICAL. */
944 944
945 for (i = 0; i < countof (coding_subsidiary_list); i++) 945 for (i = 0; i < countof (coding_subsidiary_list); i++)
946 { 946 {
947 Ascbyte *extension = coding_subsidiary_list[i].extension; 947 const Ascbyte *extension = coding_subsidiary_list[i].extension;
948 Ascbyte *mnemonic_ext = coding_subsidiary_list[i].mnemonic_ext; 948 const Ascbyte *mnemonic_ext = coding_subsidiary_list[i].mnemonic_ext;
949 enum eol_type eol = coding_subsidiary_list[i].eol; 949 enum eol_type eol = coding_subsidiary_list[i].eol;
950 950
951 qxestrcpy_ascii (codesys_name + len, extension); 951 qxestrcpy_ascii (codesys_name + len, extension);
952 codesys_name_sym = intern_int (codesys_name); 952 codesys_name_sym = intern_int (codesys_name);
953 if (mlen != -1) 953 if (mlen != -1)
1019 crazy crap is based on existing behavior in other Mule versions, 1019 crazy crap is based on existing behavior in other Mule versions,
1020 including FSF Emacs.) 1020 including FSF Emacs.)
1021 */ 1021 */
1022 1022
1023 static Lisp_Object 1023 static Lisp_Object
1024 make_coding_system_1 (Lisp_Object name_or_existing, Ascbyte *prefix, 1024 make_coding_system_1 (Lisp_Object name_or_existing, const Ascbyte *prefix,
1025 Lisp_Object type, Lisp_Object description, 1025 Lisp_Object type, Lisp_Object description,
1026 Lisp_Object props) 1026 Lisp_Object props)
1027 { 1027 {
1028 Lisp_Coding_System *cs; 1028 Lisp_Coding_System *cs;
1029 int need_to_setup_eol_systems = 1; 1029 int need_to_setup_eol_systems = 1;
1190 1190
1191 return csobj; 1191 return csobj;
1192 } 1192 }
1193 1193
1194 Lisp_Object 1194 Lisp_Object
1195 make_internal_coding_system (Lisp_Object existing, Ascbyte *prefix, 1195 make_internal_coding_system (Lisp_Object existing, const Ascbyte *prefix,
1196 Lisp_Object type, Lisp_Object description, 1196 Lisp_Object type, Lisp_Object description,
1197 Lisp_Object props) 1197 Lisp_Object props)
1198 { 1198 {
1199 return make_coding_system_1 (existing, prefix, type, description, props); 1199 return make_coding_system_1 (existing, prefix, type, description, props);
1200 } 1200 }