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 ()
|
`(progn (defun ,func ()
|
||||||
,(format "%S micro-state." name)
|
,(format "%S micro-state." name)
|
||||||
(interactive)
|
(interactive)
|
||||||
|
,@on-enter
|
||||||
(let ((doc ,@doc))
|
(let ((doc ,@doc))
|
||||||
(when doc
|
(when doc
|
||||||
(apply ',msg-func (list (spacemacs//micro-state-propertize-doc
|
(apply ',msg-func (list (spacemacs//micro-state-propertize-doc
|
||||||
(format "%S: %s" ',name doc))))))
|
(format "%S: %s" ',name doc))))))
|
||||||
,(when exec-binding
|
,(when exec-binding
|
||||||
(spacemacs//micro-state-auto-execute bindings))
|
(spacemacs//micro-state-auto-execute bindings))
|
||||||
,@on-enter
|
|
||||||
(,(if (version< emacs-version "24.4")
|
(,(if (version< emacs-version "24.4")
|
||||||
'set-temporary-overlay-map
|
'set-temporary-overlay-map
|
||||||
'set-transient-map)
|
'set-transient-map)
|
||||||
|
|
Loading…
Reference in a new issue