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 }