   (declare (indent 1))
   (let* ((func (spacemacs//micro-state-func-name name))
          (doc (spacemacs/mplist-get props :doc))
+         (persistent (plist-get props :persistent))
          (on-enter (spacemacs/mplist-get props :on-enter))
          (on-exit (spacemacs/mplist-get props :on-exit))
          (bindings (spacemacs/mplist-get props :bindings))

           'set-transient-map)
        (let ((map (make-sparse-keymap)))
          ,@keymap-body map) ',(spacemacs//micro-state-create-exit-func
                                name wrappers on-exit))))) 

(defun spacemacs//micro-state-func-name (name)
  "Return the name of the micro-state function."

                     (if bdoc
                         (lv-message (spacemacs//micro-state-propertize-doc
                                      (concat ,(symbol-name name) ": " bdoc)))
                       (when (and defdoc
                                  ',wrapped (not (plist-get ',binding :exit)))
                         (lv-message (spacemacs//micro-state-propertize-doc
                                      (concat ,(symbol-name name) ": "
                                              defdoc))))))))))
