Mercurial > emacs

changeset 102602:d8c8b8498218

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ccl-compile-if): Signal an error for invalid operator.
author Kenichi Handa <handa@m17n.org>
date Mon, 16 Mar 2009 11:12:40 +0000
parents 68c67342e3bf
children d071ad064e11
files lisp/international/ccl.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ccl.el	Mon Mar 16 03:17:48 2009 +0000
+++ b/lisp/international/ccl.el	Mon Mar 16 11:12:40 2009 +0000
@@ -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