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.

88630:9f589c592e30

#define SHIFT_OUT_OK(category)	\
  (CODING_ISO_INITIAL (&coding_categories[category], 1) >= 0)

static void
setup_iso_safe_charsets (Lisp_Object attrs)
{
  Lisp_Object charset_list, safe_charsets;
  Lisp_Object request;
  Lisp_Object reg_usage;
  Lisp_Object tail;

      val = Fcons (CODING_ATTR_BASE_NAME (attrs), val);
    }
  return Fnreverse (val);
}

static Lisp_Object
make_subsidiaries (base)
     Lisp_Object base;
{
  Lisp_Object subsidiaries;
  char *suffixes[] = { "-unix", "-dos", "-mac" };
  int base_name_len = STRING_BYTES (XSYMBOL (base)->name);
  char *buf = (char *) alloca (base_name_len + 6);
  int i;
      
  bcopy (XSYMBOL (base)->name->data, buf, base_name_len);

88631:780b91d4a7e5

#define SHIFT_OUT_OK(category)	\
  (CODING_ISO_INITIAL (&coding_categories[category], 1) >= 0)

static void
setup_iso_safe_charsets (attrs)
     Lisp_Object attrs;
{
  Lisp_Object charset_list, safe_charsets;
  Lisp_Object request;
  Lisp_Object reg_usage;
  Lisp_Object tail;

      val = Fcons (CODING_ATTR_BASE_NAME (attrs), val);
    }
  return Fnreverse (val);
}

static char *suffixes[] = { "-unix", "-dos", "-mac" };

static Lisp_Object
make_subsidiaries (base)
     Lisp_Object base;
{
  Lisp_Object subsidiaries;
  int base_name_len = STRING_BYTES (XSYMBOL (base)->name);
  char *buf = (char *) alloca (base_name_len + 6);
  int i;
      
  bcopy (XSYMBOL (base)->name->data, buf, base_name_len);