mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from npostavs/name-keymap

Browse source 
get-binding-description: return keymap symbol
GitHub-reference: https://github.com/jwiegley/use-package/issues/184
This commit is contained in:
John Wiegley 2015-03-19 14:20:09 -05:00
commit 23ec1ca719
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/use-package/bind-key.el
View file

@ -234,12 +234,9 @@ function symbol (unquoted)."
"#<keymap>")
(t
elem)))
((keymapp elem)
(if (and bind-key-describe-special-forms
(symbolp elem)
(get elem 'variable-documentation))
(format "%s" (get elem 'variable-documentation))
"#<keymap>"))
;; must be a symbol, non-symbol keymap case covered above
((and bind-key-describe-special-forms (keymapp elem))
(get elem 'variable-documentation))
((symbolp elem)
elem)
(t