# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 872220831 0
# Node ID 33c5695c6c7e00d5dae6d21bd0b6e48759eec938
# Parent  a3240ad2e954517171dcfe7a0355419fa833ae67
(detect_eol):  If the coding system an alias, get
eol-type from the base of it.

diff -r a3240ad2e954 -r 33c5695c6c7e src/coding.c
--- 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);
 }