# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1065569655 0
# Node ID 4519d019f12ed50e97cc2b2249a2451d9fa628e2
# Parent  c0068a71bb2e02ce0c45fbb51f203d92cd7e9e76
(Fcoding_system_p): Return t for auto-loading coding system.

diff -r c0068a71bb2e -r 4519d019f12e src/coding.c
--- a/src/coding.c	Tue Oct 07 21:27:52 2003 +0000
+++ b/src/coding.c	Tue Oct 07 23:34:15 2003 +0000
@@ -6333,6 +6333,8 @@
     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)