changeset 19463:33c5695c6c7e

(detect_eol): If the coding system an alias, get eol-type from the base of it.
author Kenichi Handa <handa@m17n.org>
date Fri, 22 Aug 1997 03:33:51 +0000
parents a3240ad2e954
children 1a9f6be64530
files src/coding.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/coding.c	Fri Aug 22 03:15:57 1997 +0000
+++ b/src/coding.c	Fri Aug 22 03:33:51 1997 +0000
@@ -2825,14 +2825,17 @@
      unsigned char *src;
      int src_bytes;
 {
-  Lisp_Object val;
+  Lisp_Object val, coding_system;
   int eol_type = detect_eol_type (src, src_bytes);
 
   if (eol_type == CODING_EOL_UNDECIDED)
     /*  We found no end-of-line in the source text.  */
     return;
 
-  val = Fget (coding->symbol, Qeol_type);
+  coding_system = coding->symbol;
+  while (!NILP (coding_system)
+	 && NILP (val = Fget (coding_system, Qeol_type)))
+    coding_system = Fget (coding_system, Qcoding_system);
   if (VECTORP (val) && XVECTOR (val)->size == 3)
     setup_coding_system (XVECTOR (val)->contents[eol_type], coding);
 }