diff options
| author | Richard M. Stallman | 1997-05-30 19:21:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-30 19:21:06 +0000 |
| commit | 916cc49f93a71ecc84f90e58fbe07ed96d55e566 (patch) | |
| tree | 6616fc2c6a3749d7794fe9826756d9f655af55e4 | |
| parent | 0b532ca2ca2227c132dce39c31fec64b452a077a (diff) | |
| download | emacs-916cc49f93a71ecc84f90e58fbe07ed96d55e566.tar.gz emacs-916cc49f93a71ecc84f90e58fbe07ed96d55e566.zip | |
(substitute-key-definition): Check vectorp, not arrayp.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 0b87112c9cd..ecc64fcb450 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -145,7 +145,7 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP." | |||
| 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)) |