mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 08:43:52 -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

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2003-10-08 Kenichi Handa <handa@m17n.org>
* coding.c (Fcoding_system_p): Return t for auto-loading coding
system.
2003-10-07 Kenichi Handa <handa@m17n.org>
* coding.c (Qcoding_system_define_form): New variable.

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)