mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

Declare some project commands interactive-only

Browse Source 
* lisp/progmodes/project.el (project-async-shell-command)
(project-shell-command, project-compile):
Declare interactive-only (bug#45765).
This commit is contained in:
Dmitry Gutov 2021-01-19 21:50:11 +02:00
parent eec059b124
commit 8725f7690a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/progmodes/project.el
View File

@ -929,6 +929,7 @@ if one already exists."
(defun project-async-shell-command ()
"Run `async-shell-command' in the current project's root directory."
(interactive)
(declare (interactive-only async-shell-command))
(let ((default-directory (project-root (project-current t))))
(call-interactively #'async-shell-command)))
@ -936,6 +937,7 @@ if one already exists."
(defun project-shell-command ()
"Run `shell-command' in the current project's root directory."
(interactive)
(declare (interactive-only shell-command))
(let ((default-directory (project-root (project-current t))))
(call-interactively #'shell-command)))
@ -973,6 +975,7 @@ loop using the command \\[fileloop-continue]."
(defun project-compile ()
"Run `compile' in the project root."
(interactive)
(declare (interactive-only compile))
(let ((default-directory (project-root (project-current t))))
(call-interactively #'compile)))