comparison src/coding.c @ 41678:5aa97e545399

(syms_of_coding) <Qchar_coding_system>: Give it an extra extra slot. (detect_coding_mask): Fix call of detect_coding_iso2022.

41677:4c982f51020c

	  for (i = 0; i < CODING_CATEGORY_IDX_MAX; i++)
	    {
	      if (!iso2022_examined_p
		  && (priorities[i] & try & CODING_CATEGORY_MASK_ISO))
		{
		  mask |= detect_coding_iso2022 (src, src_end);
		  iso2022_examined_p = 1;
		}
	      else if (priorities[i] & try & CODING_CATEGORY_MASK_SJIS)
		mask |= detect_coding_sjis (src, src_end, multibytep);
	      else if (priorities[i] & try & CODING_CATEGORY_MASK_UTF_8)

  /* Intern this now in case it isn't already done.
     Setting this variable twice is harmless.
     But don't staticpro it here--that is done in alloc.c.  */
  Qchar_table_extra_slots = intern ("char-table-extra-slots");
  Fput (Qsafe_chars, Qchar_table_extra_slots, make_number (0));
  Fput (Qchar_coding_system, Qchar_table_extra_slots, make_number (1));

  Qvalid_codes = intern ("valid-codes");
  staticpro (&Qvalid_codes);

  Qemacs_mule = intern ("emacs-mule");

If VAL is a coding system, it is used for both decoding and encoding
the file contents.
If VAL is a cons of coding systems, the car part is used for decoding,
and the cdr part is used for encoding.
If VAL is a function symbol, the function must return a coding system
or a cons of coding systems which are used as above.

See also the function `find-operation-coding-system'
and the variable `auto-coding-alist'.  */);
  Vfile_coding_system_alist = Qnil;

41678:5aa97e545399

	  for (i = 0; i < CODING_CATEGORY_IDX_MAX; i++)
	    {
	      if (!iso2022_examined_p
		  && (priorities[i] & try & CODING_CATEGORY_MASK_ISO))
		{
		  mask |= detect_coding_iso2022 (src, src_end, multibytep);
		  iso2022_examined_p = 1;
		}
	      else if (priorities[i] & try & CODING_CATEGORY_MASK_SJIS)
		mask |= detect_coding_sjis (src, src_end, multibytep);
	      else if (priorities[i] & try & CODING_CATEGORY_MASK_UTF_8)

  /* Intern this now in case it isn't already done.
     Setting this variable twice is harmless.
     But don't staticpro it here--that is done in alloc.c.  */
  Qchar_table_extra_slots = intern ("char-table-extra-slots");
  Fput (Qsafe_chars, Qchar_table_extra_slots, make_number (0));
  Fput (Qchar_coding_system, Qchar_table_extra_slots, make_number (2));

  Qvalid_codes = intern ("valid-codes");
  staticpro (&Qvalid_codes);

  Qemacs_mule = intern ("emacs-mule");

If VAL is a coding system, it is used for both decoding and encoding
the file contents.
If VAL is a cons of coding systems, the car part is used for decoding,
and the cdr part is used for encoding.
If VAL is a function symbol, the function must return a coding system
or a cons of coding systems which are used as above.  The function gets
the arguments with which `find-operation-coding-systems' was called.

See also the function `find-operation-coding-system'
and the variable `auto-coding-alist'.  */);
  Vfile_coding_system_alist = Qnil;