From d24715e86956620a1f368f6ec660da6a7d510add Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 27 Jan 1999 10:06:21 +0000 Subject: [PATCH] (decode_mode_spec_coding): Display the EOL type as a string. --- src/xdisp.c | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/src/xdisp.c b/src/xdisp.c index b609812bda0..79eee049108 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -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; -- 2.39.2