From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 6 Oct 1998 23:30:31 +0000 (+0000)
Subject: (apropos-print): control invalid characters.
X-Git-Tag: emacs-20.4~1563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3d0fe180e84760ac908a1567536a86fbd337a9b;p=emacs.git

(apropos-print): control invalid characters.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 98a15923e86..b391e5157b7 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -558,7 +558,9 @@ alphabetically by symbol name; but this function also sets
 		   (insert
 		    (mapconcat
 		     (lambda (key)
-		       (setq key (key-description key))
+		       (setq key (condition-case () 
+				     (key-description key)
+				   (error)))
 		       (if apropos-keybinding-face
 			   (put-text-property 0 (length key)
 					      'face apropos-keybinding-face