From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 27 Jan 1999 10:06:21 +0000 (+0000)
Subject: (decode_mode_spec_coding): Display the EOL type as a string.
X-Git-Tag: emacs-20.4~750
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d24715e86956620a1f368f6ec660da6a7d510add;p=emacs.git

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

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;