diff options
| -rw-r--r-- | lisp/apropos.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 8b3f2857fbf..0e89fa585d6 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -276,7 +276,9 @@ Returns list of symbols and documentation found." | |||
| 276 | (and (symbolp command) | 276 | (and (symbolp command) |
| 277 | (if regexp (string-match regexp (symbol-name command))) | 277 | (if regexp (string-match regexp (symbol-name command))) |
| 278 | (setq item (assq command alist)) | 278 | (setq item (assq command alist)) |
| 279 | (setq key (concat sequence (char-to-string key))) | 279 | (if (or (vectorp sequence) (not (integerp key))) |
| 280 | (setq key (vconcat sequence (vector key))) | ||
| 281 | (setq key (concat sequence (char-to-string key)))) | ||
| 280 | ;; checking if shadowed by local binding. | 282 | ;; checking if shadowed by local binding. |
| 281 | ;; either no local map, no local binding, or runs off the | 283 | ;; either no local map, no local binding, or runs off the |
| 282 | ;; binding tree (number), or is the same binding | 284 | ;; binding tree (number), or is the same binding |