[Emacs-diffs] emacs/lisp/international ccl.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/03/16 11:12:40

Modified files:
        lisp/international: ccl.el 

Log message:
        (ccl-compile-if): Signal an error for invalid operator.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/ccl.el?cvsroot=emacs&r1=1.50&r2=1.51

Patches:
Index: ccl.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/ccl.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- ccl.el      5 Jan 2009 03:22:20 -0000       1.50
+++ ccl.el      16 Mar 2009 11:12:40 -0000      1.51
@@ -505,6 +505,8 @@
            (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