Extra patch when understood the keymap.

src/edit-text.el

@@ -751,7 +751,17 @@ BUG: does not descend in the maps."
 	(while (< r (length (car (cdr newmap))))
 	  (if (aref (car (cdr newmap)) r)
 	      (define-key map (char-to-string r) (aref (car (cdr newmap)) r)))
-	  (setq r (1+ r))))
+	  (setq r (1+ r)))
+	(mapcar
+	 (function
+	  (lambda (ele)
+	    (define-key map 
+	      (cond
+	       ((integerp (car ele))
+		(char-to-string (car ele)))
+	       ((vector (car ele))))
+	      (cdr ele))))
+	 (cdr (cdr newmap))))
        ((arrayp newmap)
 	(while (< r (length newmap))
 	  (if (aref newmap r)