Trifling problem of ccl-dump-ex-cmd
Sorry, I cannot write English.
'ccl-dump-ex-cmd' does not work.
in "Lisp Interaction" buffer
(define-ccl-program ccl-test-program
'(1
(loop
(read-multibyte-character r0 r1)
(write-multibyte-character r0 r1)
(repeat))))
nil
(ccl-dump ccl-test-program)
Out-buffer must be as large as in-buffer.
Main-body:
2:[ex-cmd]
error: "Symbol's value as variable is void: ff"
the following is patch:
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/mule/mule-ccl.el,v
retrieving revision 1.6
diff -u -r1.6 mule-ccl.el
--- mule-ccl.el 2001/05/04 22:42:23 1.6
+++ mule-ccl.el 2001/09/28 18:35:55
＠＠ -1172,9 +1172,9 ＠＠
(setq i (1+ i)))))
(defun ccl-dump-ex-cmd (rrr cc)
- (let* ((RRR (logand cc ?\x7))
- (Rrr (logand (ash cc -3) ?\x7))
- (ex-op (aref ccl-extended-code-table (logand (ash cc -6) ?\x3fff))))
+ (let* ((RRR (logand cc 7))
+ (Rrr (logand (ash cc -3) 7))
+ (ex-op (aref ccl-extended-code-table (logand (ash cc -6) 16383))))
(insert (format "<%s> " ex-op))
(funcall (get ex-op 'ccl-dump-function) rrr RRR Rrr)))