Avoid aborts when keyboard-coding-system is raw-text (Bug#19532)

[gnu-emacs] / src / coding.c

diff --git a/src/coding.c b/src/coding.c
index a7128ee3e7391bda96ed9db67033656be3119555..1a0e12796486c77f6b88666eac69f527bd0a3ea6 100644 (file)
--- a/src/coding.c
+++ b/src/coding.c
@@ -5979,6 +5979,15 @@ raw_text_coding_system (Lisp_Object coding_system)
          : AREF (raw_text_eol_type, 2));
 }
 
+/* Return true if CODING corresponds to raw-text coding-system.  */
+
+bool
+raw_text_coding_system_p (struct coding_system *coding)
+{
+  return (coding->decoder == decode_coding_raw_text
+         && coding->encoder == encode_coding_raw_text) ? true : false;
+}
+
 
 /* If CODING_SYSTEM doesn't specify end-of-line format, return one of
    the subsidiary that has the same eol-spec as PARENT (if it is not