master 32e781b: Jamie Beardslee <address@hidden>

[Dmitry Gutov]

branch: master
commit 32e781b2f1e2cbf2bed323247b13dca3ed53fc71
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Jamie Beardslee <beardsleejamie@gmail.com>
    
    * lisp/progmodes/project.el (project-execute-extended-command):
    New command.
    (project-prefix-map): Binding for it.
    
    Copyright-paperwork-exempt: yes
---
 lisp/progmodes/project.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index d786c3f..5b58090 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -631,6 +631,7 @@ DIRS must contain directory names."
     (define-key map "g" 'project-find-regexp)
     (define-key map "G" 'project-or-external-find-regexp)
     (define-key map "r" 'project-query-replace-regexp)
+    (define-key map "x" 'project-execute-extended-command)
     map)
   "Keymap for project commands.")
 
@@ -1246,6 +1247,14 @@ It's also possible to enter an arbitrary directory not 
in the list."
   (project--ensure-read-project-list)
   (mapcar #'car project--list))
 
+;;;###autoload
+(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)))
+
 
 ;;; Project switching