Commit 5c600c5c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(apropos-match-keys): Handle non-chars as keys.

parent 8fabe6f4
......@@ -276,7 +276,9 @@ Returns list of symbols and documentation found."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment