diff options
| author | Richard M. Stallman | 1997-07-18 22:55:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-18 22:55:49 +0000 |
| commit | 465edc86d163dfe6476f7c4bf5572da5408b2202 (patch) | |
| tree | cdc5f2711bf8a5017fb4d94e9b770b1d301a3084 /src | |
| parent | 5e2729dd570ad316cc2ee3cfd71568f476341d0a (diff) | |
| download | emacs-465edc86d163dfe6476f7c4bf5572da5408b2202.tar.gz emacs-465edc86d163dfe6476f7c4bf5572da5408b2202.zip | |
(Ffind_operation_coding_system): Use Ffboundp to
check for a function entry.
Diffstat (limited to 'src')
| -rw-r--r-- | src/coding.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/coding.c b/src/coding.c index 116a54e444f..feae107298e 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -3570,7 +3570,7 @@ which is a list of all the arguments given to this function.") | |||
| 3570 | return Qnil; | 3570 | return Qnil; |
| 3571 | if (! NILP (Fcoding_system_p (val))) | 3571 | if (! NILP (Fcoding_system_p (val))) |
| 3572 | return Fcons (val, val); | 3572 | return Fcons (val, val); |
| 3573 | if (!NILP (Fboundp (val))) | 3573 | if (!NILP (Ffboundp (val))) |
| 3574 | return call1 (val, Flist (nargs, args)); | 3574 | return call1 (val, Flist (nargs, args)); |
| 3575 | return Qnil; | 3575 | return Qnil; |
| 3576 | } | 3576 | } |