diff options
| author | Alex Kost <alezost@gmail.com> | 2015-06-22 19:43:55 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-06-22 19:43:55 +0300 |
| commit | d81390f6de016d939f2a95a31ce9c5a1e55bebcf (patch) | |
| tree | f924a420e767656b3b81627297b4bac4ed1117ca /lisp/use-package | |
| parent | d3f47a74019bd283ee2e56c9231828708088ceb3 (diff) | |
| download | emacs-d81390f6de016d939f2a95a31ce9c5a1e55bebcf.tar.gz emacs-d81390f6de016d939f2a95a31ce9c5a1e55bebcf.tar.bz2 emacs-d81390f6de016d939f2a95a31ce9c5a1e55bebcf.zip | |
Handle the case when keymap has a broken documentation
Diffstat (limited to 'lisp/use-package')
| -rw-r--r-- | lisp/use-package/bind-key.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index 5cace724196..ad0bf5c2df5 100644 --- 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 |