comparison src/xdisp.c @ 24199:204d0a24ddf5

(decode_mode_spec_coding): Display the EOL type as a string.

24198:ee8046b6187d

/* Set a mnemonic character for CODING_SYSTEM (Lisp symbol) in BUF.
   If EOL_FLAG is 1, set also a mnemonic character for end-of-line
   type of CODING_SYSTEM.  Return updated pointer into BUF.  */

static char *
decode_mode_spec_coding (coding_system, buf, eol_flag)
     Lisp_Object coding_system;
     register char *buf;
     int eol_flag;

      if (multibyte)
	*buf++ = XFASTINT (XVECTOR (val)->contents[1]);

      if (eol_flag)
	{
	  /* The EOL conversion we are using.  */
	  int eoltype;
	  /* The EOL conversion that is normal on this system.  */

	  if (NILP (eolvalue))	/* Not yet decided.  */
	    eoltype = eol_mnemonic_undecided;
	  else if (VECTORP (eolvalue)) /* Not yet decided.  */

		       ? eol_mnemonic_unix
		       : (XFASTINT (eolvalue) == 1
			  ? eol_mnemonic_dos : eol_mnemonic_mac));

	  /* Mention the EOL conversion if it is not the usual one.  */
	  *buf++ = eoltype;
	}
    }
  return buf;
}

24199:204d0a24ddf5

/* Set a mnemonic character for CODING_SYSTEM (Lisp symbol) in BUF.
   If EOL_FLAG is 1, set also a mnemonic character for end-of-line
   type of CODING_SYSTEM.  Return updated pointer into BUF.  */

static char invalid_eol_type[] = "(*invalid*)";

static char *
decode_mode_spec_coding (coding_system, buf, eol_flag)
     Lisp_Object coding_system;
     register char *buf;
     int eol_flag;

      if (multibyte)
	*buf++ = XFASTINT (XVECTOR (val)->contents[1]);

      if (eol_flag)
	{
	  unsigned char *eol_str;
	  int eol_str_len;
	  /* The EOL conversion we are using.  */
	  Lisp_Object eoltype;
	  /* The EOL conversion that is normal on this system.  */

	  if (NILP (eolvalue))	/* Not yet decided.  */
	    eoltype = eol_mnemonic_undecided;
	  else if (VECTORP (eolvalue)) /* Not yet decided.  */

		       ? eol_mnemonic_unix
		       : (XFASTINT (eolvalue) == 1
			  ? eol_mnemonic_dos : eol_mnemonic_mac));

	  /* Mention the EOL conversion if it is not the usual one.  */
	  if (STRINGP (eoltype))
	    {
	      eol_str = XSTRING (eoltype)->data;
	      eol_str_len = XSTRING (eoltype)->size;
	    }
	  else
	    {
	      eol_str = invalid_eol_type;
	      eol_str_len = sizeof (invalid_eol_type) - 1;
	    }
	  strcpy (buf, eol_str);
	  buf += eol_str_len;
	}
    }
  return buf;
}