diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-03-16 11:13:58 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-03-16 11:13:58 +0000 |
| commit | 945acc7b3c19da5193807e16f57cdc2acc7e5059 (patch) | |
| tree | 786e182e8ee94ceda18cf7e38dc025c08c348801 /lisp/international/ccl.el | |
| parent | 846b6ebaae5ecaec00f5ae7068d7c7a1d4639440 (diff) | |
| download | emacs-945acc7b3c19da5193807e16f57cdc2acc7e5059.tar.gz | |
(ccl-compile-if): Signal an error for invalid operator.
Diffstat (limited to 'lisp/international/ccl.el')
| -rw-r--r-- | lisp/international/ccl.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index 1d212afd519..c5088c8c9e5 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -505,6 +505,8 @@ If READ-FLAG is non-nil, this statement has the form (op (get (nth 1 condition) 'ccl-arith-code)) (arg (nth 2 condition))) (ccl-check-register rrr cmd) + (or (integerp op) + (error "CCL: invalid operator: %s" (nth 1 condition))) (if (integerp arg) (progn (ccl-embed-code (if read-flag 'read-jump-cond-expr-const |