Handle the case when keymap has a broken documentation

diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el
index 5cace724196bd4335d0ecc4d71beabe5786af0a4..ad0bf5c2df5565bb2e3cf08443c3b447ed81120b 100644 (file)
--- a/lisp/use-package/bind-key.el
+++ b/lisp/use-package/bind-key.el
@@ -256,7 +256,8 @@ function symbol (unquoted)."
       elem)))
    ;; must be a symbol, non-symbol keymap case covered above
    ((and bind-key-describe-special-forms (keymapp elem))
-    (get elem 'variable-documentation))
+    (let ((doc (get elem 'variable-documentation)))
+      (if (stringp doc) doc elem)))
    ((symbolp elem)
     elem)
    (t