From: Kenichi Handa <handa@m17n.org>
Date: Mon, 5 Jun 2000 12:50:35 +0000 (+0000)
Subject: (ccl-compile-translate-character): Don't check if Rrr has property
X-Git-Tag: emacs-pretest-21.0.90~3515
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bec6f62a856244c263689bc62986fe1c39bdecd9;p=emacs.git

(ccl-compile-translate-character): Don't check if Rrr has property
translation-table.
(ccl-compile-map-multiple): Modified to avoid compiler warning.
---

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 84ea32a4408..3f987fda740 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -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))