mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kenichi Handa 2009-03-16 11:13:58 +00:00
parent 846b6ebaae
commit 945acc7b3c
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-03-16 Kenichi Handa <handa@m17n.org>
* international/ccl.el (ccl-compile-if): Signal an error for
invalid operator.
2009-03-16 Chong Yidong <cyd@stupidchicken.com>
* minibuffer.el (read-file-name): Doc fix.

2
lisp/international/ccl.el
View File

@ -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