diff options
| author | Pip Cet <pipcet@gmail.com> | 2020-08-21 14:47:45 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-21 14:47:45 +0200 |
| commit | 19ee08f1e8599ce0e0465f6ffbd4a76791d791b4 (patch) | |
| tree | 3fa8d56a55b5166e619065aade6b84cf3ced7e04 /src/ccl.c | |
| parent | a415179b56f022f50138f55d231070e3d1b00697 (diff) | |
| download | emacs-19ee08f1e8599ce0e0465f6ffbd4a76791d791b4.tar.gz | |
Fix return value for CCL opcode lookup-integer
* src/ccl.c (ccl_driver): Fix LookupIntConstTbl return value.
* test/lisp/international/ccl-tests.el (ccl-hash-table): Add test.
* lisp/international/ccl.el (ccl-embed-data): Don't pass non-numbers
to `ccl-fixnum' (bug#36740).
Diffstat (limited to 'src/ccl.c')
| -rw-r--r-- | src/ccl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ccl.c b/src/ccl.c index 86debeef0e5..796698eb1ce 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1374,7 +1374,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size if (! (IN_INT_RANGE (eop) && CHARACTERP (opl))) CCL_INVALID_CMD; reg[RRR] = charset_unicode; - reg[rrr] = eop; + reg[rrr] = XFIXNUM (opl); reg[7] = 1; /* r7 true for success */ } else |