 used."
   (declare (indent 1))
   (let* ((func (spacemacs//transient-state-func-name name))
+         (props-var (spacemacs//transient-state-props-var-name name))
          (body-func (spacemacs//transient-state-body-func-name name))
-         (entry-binding (spacemacs/mplist-get props :entry-binding))
-         (add-bindings (intern (format "spacemacs-%s-transient-state-add-bindings"
-                                       name)))
-         (remove-bindings (intern (format "spacemacs-%s-transient-state-remove-bindings"
-                                       name)))
+         (add-bindings
+          (intern (format "spacemacs-%s-transient-state-add-bindings" name)))
+         (remove-bindings
+          (intern (format "spacemacs-%s-transient-state-remove-bindings" name)))
          (bindings (spacemacs/mplist-get props :bindings))
          (doc (or (plist-get props :doc) "\n"))
          (title (plist-get props :title))

                              ',dyn-hint
                              (when dotspacemacs-show-transient-state-color-guide
                                (concat "\n" guide))))))
           (dolist (add-doc ',additional-docs)
             (unless (boundp (car add-doc))
               (set (car add-doc)
                    (spacemacs//transient-state-make-doc
                     ',name (cdr add-doc) '(,(car entry-binding)
                                            ,(cadr entry-binding)
                                            :hint ,hint
                                            :columns ,columns
                                            :foreign-keys ,foreign-keys
                                            :body-pre ,entry-sexp
                                            :before-exit ,exit-sexp)))))
           ,@bindkeys)))))

(provide 'core-transient-state)

    which means to not exit but warn the user that the key is not part
    of the transient state, or run, which means to try to run the key binding
    without exiting.
`:bindings EXPRESSIONS'
    One or several EXPRESSIONS with the form
    (STRING1 SYMBOL1 DOCSTRING
