Mercurial > emacs
comparison lisp/subr.el @ 18044:3e4924d01221
(substitute-key-definition): Check vectorp, not arrayp.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 30 May 1997 19:21:06 +0000 |
parents | 15dc805eadee |
children | 83425393d550 |
comparison
equal
deleted
inserted
replaced
18043:c2d71b9b8f75 | 18044:3e4924d01221 |
---|---|
143 ;; If this one isn't being scanned already, | 143 ;; If this one isn't being scanned already, |
144 ;; scan it now. | 144 ;; scan it now. |
145 (substitute-key-definition olddef newdef keymap | 145 (substitute-key-definition olddef newdef keymap |
146 inner-def | 146 inner-def |
147 prefix1))))) | 147 prefix1))))) |
148 (if (arrayp (car scan)) | 148 (if (vectorp (car scan)) |
149 (let* ((array (car scan)) | 149 (let* ((array (car scan)) |
150 (len (length array)) | 150 (len (length array)) |
151 (i 0)) | 151 (i 0)) |
152 (while (< i len) | 152 (while (< i len) |
153 (let ((char i) (defn (aref array i))) | 153 (let ((char i) (defn (aref array i))) |