TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correctly display the doc associated to a nil binding in micro-state

This commit is contained in:
syl20bnr 2015-02-20 23:27:16 -05:00
parent 638b566cbc
commit 324cd2ad3b
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
core/core-micro-state.el
View File

@ -105,16 +105,16 @@ Available PROPS:
"Auto-generated function"
(interactive)
(when ',wrapped
(call-interactively ',wrapped)
(let ((bdoc ,@binding-doc)
(defdoc ,@default-doc))
(if bdoc
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": " bdoc)))
(when defdoc
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": "
defdoc)))))))))))
(call-interactively ',wrapped))
(let ((bdoc ,@binding-doc)
(defdoc ,@default-doc))
(if bdoc
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": " bdoc)))
(when (and defdoc ',wrapped)
(lv-message (spacemacs//micro-state-propertize-doc
(concat ,(symbol-name name) ": "
defdoc))))))))))
(append (list (car binding) wrapper-func) binding)))
(defun spacemacs//micro-state-fill-map-sexps (wrappers)