mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Eli Zaretskii 1999-01-27 10:06:21 +00:00
parent 95eada658d
commit d24715e869
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/xdisp.c
View File

@ -4556,6 +4556,8 @@ pint2str (buf, width, d)
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;
@ -4593,8 +4595,10 @@ decode_mode_spec_coding (coding_system, buf, eol_flag)
if (eol_flag)
{
unsigned char *eol_str;
int eol_str_len;
/* The EOL conversion we are using. */
int eoltype;
Lisp_Object eoltype;
/* The EOL conversion that is normal on this system. */
if (NILP (eolvalue)) /* Not yet decided. */
@ -4608,7 +4612,18 @@ decode_mode_spec_coding (coding_system, buf, eol_flag)
? eol_mnemonic_dos : eol_mnemonic_mac));
/* Mention the EOL conversion if it is not the usual one. */
*buf++ = eoltype;
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;