# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 726147374 0
# Node ID d85a2ab89e09b16e7301c6a09210ff63ee6b1827
# Parent  2d41a3d7b9a6a883c4e54bce8e876d5a08a047c2
(apropos-match-keys): Handle non-chars as keys.

diff -r 2d41a3d7b9a6 -r d85a2ab89e09 lisp/apropos.el
--- 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