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

diff --git a/src/ChangeLog b/src/ChangeLog
index 053ebae..739e82e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-08  Kenichi Handa  <handa@m17n.org>
+
+       * coding.c (Fcoding_system_p): Return t for auto-loading coding
+       system.
+
 2003-10-07  Kenichi Handa  <handa@m17n.org>
 
        * coding.c (Qcoding_system_define_form): New variable.

diff --git a/src/coding.c b/src/coding.c
index 47bfbf5..12558b9 100644 (file)
--- 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)