diff options
| author | Richard M. Stallman | 1993-01-04 11:36:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-01-04 11:36:14 +0000 |
| commit | 5c600c5c2f34dbdaa00dcf75860bfe6211965698 (patch) | |
| tree | c5952eb7bb6478839ac8b9b74cb0d267135dceb7 | |
| parent | 8fabe6f428cb0d7a2055d641423d261dffb98369 (diff) | |
| download | emacs-5c600c5c2f34dbdaa00dcf75860bfe6211965698.tar.gz emacs-5c600c5c2f34dbdaa00dcf75860bfe6211965698.zip | |
(apropos-match-keys): Handle non-chars as keys.
| -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 |