From 8725f7690a44306f03d7cbb9eaa45590fcaf88db Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Tue, 19 Jan 2021 21:50:11 +0200 Subject: [PATCH] Declare some project commands interactive-only * lisp/progmodes/project.el (project-async-shell-command) (project-shell-command, project-compile): Declare interactive-only (bug#45765). --- lisp/progmodes/project.el | 3 +++ 1 file changed, 3 insertions(+) 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))) -- 2.39.5