diff options
Diffstat (limited to 'lisp/progmodes/project.el')
| -rw-r--r-- | lisp/progmodes/project.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index d786c3f967a..5b58090de02 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 |