masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add better descriptions for lambdas, closures, keymaps

Browse source
This commit is contained in:
Matus Goljer 2014-02-18 13:40:25 +01:00
parent aec1268960
commit f90d65e149
1 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -95,6 +95,11 @@
:type 'regexp
:group 'bind-key)
(defcustom bind-key-describe-special-forms nil
"If non-nil, extract docstrings from lambdas, closures and keymaps if possible."
:type 'boolean
:group 'bind-key)
;; Create override-global-mode to force key remappings
(defvar override-global-map (make-keymap)
@ -184,15 +189,25 @@ function symbol (unquoted)."
((listp elem)
(cond
((eq 'lambda (car elem))
"#<lambda>")
(if (and bind-key-describe-special-forms
(stringp (nth 2 elem)))
(nth 2 elem)
"#<lambda>"))
((eq 'closure (car elem))
"#<closure>")
(if (and bind-key-describe-special-forms
(stringp (nth 3 elem)))
(nth 3 elem)
"#<closure>"))
((eq 'keymap (car elem))
"#<keymap>")
(t
elem)))
((keymapp elem)
"#<keymap>")
(if (and bind-key-describe-special-forms
(symbolp elem)
(get elem 'variable-documentation))
(format "%s" (get elem 'variable-documentation))
"#<keymap>"))
((symbolp elem)
elem)
(t