# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 917431581 0
# Node ID 204d0a24ddf5e0041b8b6a854acee4a3544ce4fb
# Parent  ee8046b6187dfe17061e96bec2265250e8eef2e9
(decode_mode_spec_coding): Display the EOL type as a string.

diff -r ee8046b6187d -r 204d0a24ddf5 src/xdisp.c
--- 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;