Function: embark--quit-and-run

embark--quit-and-run is a natively compiled function defined in embark.el.

Signature

(embark--quit-and-run FN &rest ARGS)

Documentation

Quit the minibuffer and then call FN with ARGS.

If called outside the minibuffer, simply apply FN to ARGS.

Source Code

;; Defined in /nix/store/lls066p88vbzffl5j0d16jbhwpn2zfz2-emacs-packages-deps/share/emacs/site-lisp/elpa/embark-20260610.302/embark.el
(defun embark--quit-and-run (fn &rest args)
  "Quit the minibuffer and then call FN with ARGS.
If called outside the minibuffer, simply apply FN to ARGS."
  (if (not (minibufferp))
      (apply fn args)
    (apply #'embark--run-after-command fn args)
    (embark--run-after-command #'set 'ring-bell-function ring-bell-function)
    (setq ring-bell-function #'ignore)
    (minibuffer-quit-recursive-edit)))