mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-20 12:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(Fcoding_system_p): Return t for auto-loading coding system.

Browse source
This commit is contained in:
Kenichi Handa 2003-10-07 23:35:01 +00:00
parent b2bd66f3e7
commit c2164d91db
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/coding.c
View file

@ -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)