1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 00:01:33 -08:00

Handle the case when keymap has a broken documentation

This commit is contained in:
Alex Kost 2015-06-22 19:43:55 +03:00
parent d3f47a7401
commit d81390f6de

View file

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