core: execute :on-enter before :doc in micro-state
This commit is contained in:
parent
ee2442d8ce
commit
f7a2f9c2cd
|
@ -106,13 +106,13 @@ used."
|
|||
`(progn (defun ,func ()
|
||||
,(format "%S micro-state." name)
|
||||
(interactive)
|
||||
,@on-enter
|
||||
(let ((doc ,@doc))
|
||||
(when doc
|
||||
(apply ',msg-func (list (spacemacs//micro-state-propertize-doc
|
||||
(format "%S: %s" ',name doc))))))
|
||||
,(when exec-binding
|
||||
(spacemacs//micro-state-auto-execute bindings))
|
||||
,@on-enter
|
||||
(,(if (version< emacs-version "24.4")
|
||||
'set-temporary-overlay-map
|
||||
'set-transient-map)
|
||||
|
|
Loading…
Reference in a new issue