diff options
| author | Kenichi Handa | 2003-10-07 23:35:01 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-10-07 23:35:01 +0000 |
| commit | c2164d91db8976f8e78d259b951f8a6501ea8aaf (patch) | |
| tree | a27c140d7998ad3f7c6e36043f3f3331aa67fc19 /src/coding.c | |
| parent | b2bd66f3e7c8309b3a514eef5704dbd195878591 (diff) | |
| download | emacs-c2164d91db8976f8e78d259b951f8a6501ea8aaf.tar.gz emacs-c2164d91db8976f8e78d259b951f8a6501ea8aaf.zip | |
(Fcoding_system_p): Return t for auto-loading coding system.
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/coding.c b/src/coding.c index 47bfbf5cacb..12558b958c4 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -6333,6 +6333,8 @@ about coding-system objects. */) | |||
| 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) |