                    (setq throwp nil))
                  ,@binding-post
                  (when throwp (throw 'exit nil)))
+               (setq max-mini-window-height (1+ (how-many-str "\n" ,@doc-body)))
                ,@doc-body))))
     (append (list (car binding) (eval wrapper-func)) binding)))
 

              ,@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))
              (,(if (version< emacs-version "24.4")

         (doc (spacemacs/mplist-get props :doc))
         (persistent (plist-get props :persistent))
         (disable-leader (plist-get props :disable-evil-leader))
         (msg-func (if (plist-get props :use-minibuffer)
                       'message
                     'corelv-message))
         (exec-binding (plist-get props :execute-binding-on-enter))
         (on-enter (spacemacs/mplist-get props :on-enter))
         (on-exit (spacemacs/mplist-get props :on-exit))
