procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ccl-compile-translate-character): Don't check if Rrr has property

Browse source 
translation-table.
(ccl-compile-map-multiple): Modified to avoid compiler warning.
This commit is contained in:
Kenichi Handa 2000-06-05 12:50:35 +00:00
parent b48eb508f4
commit bec6f62a85
1 changed files with 18 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lisp/international/ccl.el
View file

@ -881,8 +881,6 @@
(ccl-check-register rrr cmd)
(ccl-check-register RRR cmd)
(cond ((and (symbolp Rrr) (not (get Rrr 'ccl-register-number)))
(if (not (get Rrr 'translation-table))
(error "CCL: Invalid translation table %s in %s" Rrr cmd))
(ccl-embed-extended-command 'translate-character-const-tbl
rrr RRR 0)
(ccl-embed-symbol Rrr 'translation-table-id))
@ -898,23 +896,24 @@
(defun ccl-compile-map-multiple (cmd)
(if (/= (length cmd) 4)
(error "CCL: Invalid number of arguments: %s" cmd))
(let ((func (lambda (arg mp)
(let ((len 0) result add)
(while arg
(if (consp (car arg))
(setq add (funcall func (car arg) t)
result (append result add)
add (+ (-(car add)) 1))
(setq result
(append result
(list (car arg)))
add 1))
(setq arg (cdr arg)
len (+ len add)))
(if mp
(cons (- len) result)
result))))
arg)
(let (func arg)
(setq func
(lambda (arg mp)
(let ((len 0) result add)
(while arg
(if (consp (car arg))
(setq add (funcall func (car arg) t)
result (append result add)
add (+ (- (car add)) 1))
(setq result
(append result
(list (car arg)))
add 1))
(setq arg (cdr arg)
len (+ len add)))
(if mp
(cons (- len) result)
result))))
(setq arg (append (list (nth 0 cmd) (nth 1 cmd) (nth 2 cmd))
(funcall func (nth 3 cmd) nil)))
(ccl-compile-multiple-map-function 'map-multiple arg))