diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2021-01-19 21:50:11 +0200 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2021-01-19 21:50:11 +0200 |
commit | 8725f7690a44306f03d7cbb9eaa45590fcaf88db (patch) | |
tree | 639e28f7df055bc10e76e61c298c57dc9751b93a | |
parent | eec059b124ed57956cf896904ef8240b24cc7ead (diff) | |
download | emacs-8725f7690a44306f03d7cbb9eaa45590fcaf88db.tar.gz |
Declare some project commands interactive-only
* lisp/progmodes/project.el (project-async-shell-command)
(project-shell-command, project-compile):
Declare interactive-only (bug#45765).
-rw-r--r-- | lisp/progmodes/project.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 06966f33b72..18124227d1b 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -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))) |