diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2020-12-20 00:16:32 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2020-12-20 00:16:48 +0200 |
| commit | 32e781b2f1e2cbf2bed323247b13dca3ed53fc71 (patch) | |
| tree | 768004b1490592637a2bfd2d5171e544f8b6fc4a /lisp/progmodes | |
| parent | b9edbaed01a91d5fc6235fc679d8e0cd827f6fa9 (diff) | |
| download | emacs-32e781b2f1e2cbf2bed323247b13dca3ed53fc71.tar.gz emacs-32e781b2f1e2cbf2bed323247b13dca3ed53fc71.tar.bz2 emacs-32e781b2f1e2cbf2bed323247b13dca3ed53fc71.zip | |
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
Diffstat (limited to 'lisp/progmodes')
| -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 |