(Fcoding_system_p): Return t for auto-loading coding system.

2003-10-07 23:35:01 +00:00
parent b2bd66f3e7
commit c2164d91db
2 changed files with 7 additions and 0 deletions
--- a/src/coding.c
+++ b/src/coding.c
@@ -6333,6 +6333,8 @@ about coding-system objects.  */)
    return Qt;
  if (!SYMBOLP (obj))
    return Qnil;
+  if (! NILP (Fget (obj, Qcoding_system_define_form)))
+    return Qt;
  /* Get coding-spec vector for OBJ.  */
  obj = Fget (obj, Qcoding_system);
  return ((VECTORP (obj) && XVECTOR (obj)->size == 5)