Mercurial > emacs
comparison src/coding.c @ 88631:780b91d4a7e5
(setup_iso_safe_charsets): Fix arg decl for K&R.
(suffixes): Moved out of make_subsidiaries for K&R.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 24 May 2002 15:33:29 +0000 |
parents | 18436bf3d6dd |
children | d099a8b267fe |
comparison
equal
deleted
inserted
replaced
88630:9f589c592e30 | 88631:780b91d4a7e5 |
---|---|
2203 | 2203 |
2204 #define SHIFT_OUT_OK(category) \ | 2204 #define SHIFT_OUT_OK(category) \ |
2205 (CODING_ISO_INITIAL (&coding_categories[category], 1) >= 0) | 2205 (CODING_ISO_INITIAL (&coding_categories[category], 1) >= 0) |
2206 | 2206 |
2207 static void | 2207 static void |
2208 setup_iso_safe_charsets (Lisp_Object attrs) | 2208 setup_iso_safe_charsets (attrs) |
2209 Lisp_Object attrs; | |
2209 { | 2210 { |
2210 Lisp_Object charset_list, safe_charsets; | 2211 Lisp_Object charset_list, safe_charsets; |
2211 Lisp_Object request; | 2212 Lisp_Object request; |
2212 Lisp_Object reg_usage; | 2213 Lisp_Object reg_usage; |
2213 Lisp_Object tail; | 2214 Lisp_Object tail; |
7246 val = Fcons (CODING_ATTR_BASE_NAME (attrs), val); | 7247 val = Fcons (CODING_ATTR_BASE_NAME (attrs), val); |
7247 } | 7248 } |
7248 return Fnreverse (val); | 7249 return Fnreverse (val); |
7249 } | 7250 } |
7250 | 7251 |
7252 static char *suffixes[] = { "-unix", "-dos", "-mac" }; | |
7253 | |
7251 static Lisp_Object | 7254 static Lisp_Object |
7252 make_subsidiaries (base) | 7255 make_subsidiaries (base) |
7253 Lisp_Object base; | 7256 Lisp_Object base; |
7254 { | 7257 { |
7255 Lisp_Object subsidiaries; | 7258 Lisp_Object subsidiaries; |
7256 char *suffixes[] = { "-unix", "-dos", "-mac" }; | |
7257 int base_name_len = STRING_BYTES (XSYMBOL (base)->name); | 7259 int base_name_len = STRING_BYTES (XSYMBOL (base)->name); |
7258 char *buf = (char *) alloca (base_name_len + 6); | 7260 char *buf = (char *) alloca (base_name_len + 6); |
7259 int i; | 7261 int i; |
7260 | 7262 |
7261 bcopy (XSYMBOL (base)->name->data, buf, base_name_len); | 7263 bcopy (XSYMBOL (base)->name->data, buf, base_name_len); |