Mercurial > emacs
changeset 1734:d85a2ab89e09
(apropos-match-keys): Handle non-chars as keys.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 04 Jan 1993 11:36:14 +0000 |
| parents | 2d41a3d7b9a6 |
| children | 5032e4faca19 |
| files | lisp/apropos.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/apropos.el Sun Jan 03 23:43:29 1993 +0000 +++ b/lisp/apropos.el Mon Jan 04 11:36:14 1993 +0000 @@ -276,7 +276,9 @@ (and (symbolp command) (if regexp (string-match regexp (symbol-name command))) (setq item (assq command alist)) - (setq key (concat sequence (char-to-string key))) + (if (or (vectorp sequence) (not (integerp key))) + (setq key (vconcat sequence (vector key))) + (setq key (concat sequence (char-to-string key)))) ;; checking if shadowed by local binding. ;; either no local map, no local binding, or runs off the ;; binding tree (number), or is the same binding