diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-04-10 21:53:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-04-10 21:53:28 +0000 |
| commit | c8237ef1eb3786a51bdee12065ad95c71544fb56 (patch) | |
| tree | 1f57cf7da851e2ba7d039bc8659ab2ec605e3630 /src | |
| parent | 5fb0507edbe2474f5bf038f976831c5e40f353b2 (diff) | |
| download | emacs-c8237ef1eb3786a51bdee12065ad95c71544fb56.tar.gz | |
(Ffind_coding_system): Don't use Lisp_Object as integer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/coding.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/coding.c b/src/coding.c index 7884879478c..33bf0084674 100644 --- a/src/coding.c +++ b/src/coding.c @@ -3396,9 +3396,9 @@ which is a list of all the arguments given to `find-coding-system'.") && STRINGP (XCONS (elt)->car) && fast_string_match (XCONS (elt)->car, target) >= 0) || (INTEGERP (target) && EQ (target, XCONS (elt)->car)))) - return (CONSP (val = XCONS (elt)->cdr) + return (val = XCONS (elt)->cdr, CONSP (val) ? val - : ((SYMBOLP (val) && Fboundp (val) + : ((SYMBOLP (val) && !NILP (Fboundp (val)) ? call2 (val, Flist (nargs, args)) : Qnil))); } |