From c2164d91db8976f8e78d259b951f8a6501ea8aaf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 7 Oct 2003 23:35:01 +0000 Subject: [PATCH] (Fcoding_system_p): Return t for auto-loading coding system. --- src/ChangeLog | 5 +++++ src/coding.c | 2 ++ 2 files changed, 7 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 053ebaef031..739e82e2c7d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2003-10-08 Kenichi Handa + + * coding.c (Fcoding_system_p): Return t for auto-loading coding + system. + 2003-10-07 Kenichi Handa * coding.c (Qcoding_system_define_form): New variable. diff --git a/src/coding.c b/src/coding.c index 47bfbf5cacb..12558b958c4 100644 --- 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) -- 2.39.2