Mercurial > emacs
comparison src/coding.c @ 52806:4519d019f12e
(Fcoding_system_p): Return t for auto-loading coding system.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 07 Oct 2003 23:34:15 +0000 |
parents | f4d906e31662 |
children | 36796e056954 |
comparison
equal
deleted
inserted
replaced
52805:c0068a71bb2e | 52806:4519d019f12e |
---|---|
6331 { | 6331 { |
6332 if (NILP (obj)) | 6332 if (NILP (obj)) |
6333 return Qt; | 6333 return Qt; |
6334 if (!SYMBOLP (obj)) | 6334 if (!SYMBOLP (obj)) |
6335 return Qnil; | 6335 return Qnil; |
6336 if (! NILP (Fget (obj, Qcoding_system_define_form))) | |
6337 return Qt; | |
6336 /* Get coding-spec vector for OBJ. */ | 6338 /* Get coding-spec vector for OBJ. */ |
6337 obj = Fget (obj, Qcoding_system); | 6339 obj = Fget (obj, Qcoding_system); |
6338 return ((VECTORP (obj) && XVECTOR (obj)->size == 5) | 6340 return ((VECTORP (obj) && XVECTOR (obj)->size == 5) |
6339 ? Qt : Qnil); | 6341 ? Qt : Qnil); |
6340 } | 6342 } |