From 192bdfe0b775c0456fe0ec45b58134b3d2630913 Mon Sep 17 00:00:00 2001 From: Philip K Date: Fri, 5 Jun 2020 15:07:04 +0200 Subject: [PATCH] Add project-execute-command --- lisp/progmodes/project.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index a94a27dbc2..e8c35a0fb1 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -744,6 +744,15 @@ project-compile (default-directory (project-root pr))) (compile command comint))) +;;;###autoload +(defun project-execute-command (prefix command) + "Execute an extended COMMAND in project root." + (interactive (list current-prefix-arg + (read-extended-command))) + (let* ((pr (project-current t)) + (default-directory (project-root pr))) + (execute-extended-command prefix command))) + ;;; Project list @@ -830,7 +839,8 @@ project-switch-commands ("d" "Dired" project-dired) ("v" "VC-Dir" project-vc-dir) ("s" "Shell" project-shell) - ("e" "Eshell" project-eshell)) + ("e" "Eshell" project-eshell) + ("x" "Execute command" project-execute-command)) "Alist mapping keys to project switching menu entries. Used by `project-switch-project' to construct a dispatch menu of commands available upon \"switching\" to another project. -- 2.26.2