procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-01-04 11:36:14 +00:00
parent 8fabe6f428
commit 5c600c5c2f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/apropos.el
View file

@ -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