[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 32e781b: Jamie Beardslee <address@hidden>
From: |
Dmitry Gutov |
Subject: |
master 32e781b: Jamie Beardslee <address@hidden> |
Date: |
Sat, 19 Dec 2020 17:17:00 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 32e781b: Jamie Beardslee <address@hidden>,
Dmitry Gutov <=