mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 14:40:54 -08:00
Code Issues Projects Releases Wiki Activity

Jamie Beardslee <beardsleejamie@gmail.com>

Browse source 
* lisp/progmodes/project.el (project-execute-extended-command):
New command.
(project-prefix-map): Binding for it.

Copyright-paperwork-exempt: yes
This commit is contained in:
Dmitry Gutov 2020-12-20 00:16:32 +02:00
parent b9edbaed01
commit 32e781b2f1
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/project.el
View file

@ -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