diff options
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/coding.c b/src/coding.c index 3fc6fb684c6..c5099a7b0b9 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -6004,6 +6004,8 @@ coding_inherit_eol_type (Lisp_Object coding_system, Lisp_Object parent) | |||
| 6004 | 6004 | ||
| 6005 | if (NILP (coding_system)) | 6005 | if (NILP (coding_system)) |
| 6006 | coding_system = Qraw_text; | 6006 | coding_system = Qraw_text; |
| 6007 | else | ||
| 6008 | CHECK_CODING_SYSTEM (coding_system); | ||
| 6007 | spec = CODING_SYSTEM_SPEC (coding_system); | 6009 | spec = CODING_SYSTEM_SPEC (coding_system); |
| 6008 | eol_type = AREF (spec, 2); | 6010 | eol_type = AREF (spec, 2); |
| 6009 | if (VECTORP (eol_type)) | 6011 | if (VECTORP (eol_type)) |
| @@ -6014,6 +6016,7 @@ coding_inherit_eol_type (Lisp_Object coding_system, Lisp_Object parent) | |||
| 6014 | { | 6016 | { |
| 6015 | Lisp_Object parent_spec; | 6017 | Lisp_Object parent_spec; |
| 6016 | 6018 | ||
| 6019 | CHECK_CODING_SYSTEM (parent); | ||
| 6017 | parent_spec = CODING_SYSTEM_SPEC (parent); | 6020 | parent_spec = CODING_SYSTEM_SPEC (parent); |
| 6018 | parent_eol_type = AREF (parent_spec, 2); | 6021 | parent_eol_type = AREF (parent_spec, 2); |
| 6019 | if (VECTORP (parent_eol_type)) | 6022 | if (VECTORP (parent_eol_type)) |