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))) |