"Philip K."<philip@warpmail.net> writes:
An initial attempt attached below. It seems like everything works, the
only thing I wasn't sure about was execute-extended-command's "typed"
argument, since it seems to always be nil, when invoked interactivly?
I have no idea what's going on with that typed argument, but maybe it
would be more sensible to use `call-interactively' just in case?
(defun project-execute-extended-command ()
"Execute an extended command in project root."
(declare (interactive-only command-execute))
(interactive)
(let ((default-directory
(project-root (project-current t))))
(call-interactively #'execute-extended-command)))