Add more sanity checks to the last eww after-change-function patch

[gnu-emacs] / lisp / apropos.el

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 2cba65e95598281ecf4321299f2b02285b871f6e..ac76ce26b41ae2f8d158740867188d5ace9bb8a1 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -718,7 +718,7 @@ the output includes key-bindings of commands."
                 (setq doc (list (car properties)))
                 (while (setq properties (cdr (cdr properties)))
                   (setq doc (cons (car properties) doc)))
-                (mapconcat #'symbol-name (nreverse doc) " "))
+                (mapconcat (lambda (p) (format "%s" p)) (nreverse doc) " "))
               (when (get symbol 'widget-type)
                 (apropos-documentation-property
                  symbol 'widget-documentation t))