# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865020066 0
# Node ID 3e4924d0122163011ce29d62119c590b17feb6ac
# Parent  c2d71b9b8f75e7422e566f551bac64a67c952a6c
(substitute-key-definition): Check vectorp, not arrayp.

diff -r c2d71b9b8f75 -r 3e4924d01221 lisp/subr.el
--- a/lisp/subr.el	Fri May 30 16:07:16 1997 +0000
+++ b/lisp/subr.el	Fri May 30 19:21:06 1997 +0000
@@ -145,7 +145,7 @@
 		    (substitute-key-definition olddef newdef keymap
 					       inner-def
 					       prefix1)))))
-	(if (arrayp (car scan))
+	(if (vectorp (car scan))
 	    (let* ((array (car scan))
 		   (len (length array))
 		   (i 0))