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 } |
