Mercurial > emacs
changeset 24199:204d0a24ddf5
(decode_mode_spec_coding): Display the EOL type as a string.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 27 Jan 1999 10:06:21 +0000 |
| parents | ee8046b6187d |
| children | b9d9fccad516 |
| files | src/xdisp.c |
| diffstat | 1 files changed, 17 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xdisp.c Tue Jan 26 22:10:15 1999 +0000 +++ b/src/xdisp.c Wed Jan 27 10:06:21 1999 +0000 @@ -4556,6 +4556,8 @@ 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 @@ 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 @@ ? 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;