From a330baaaf7a50f3bdf665b32efadb27283453f7f Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sun, 1 Dec 2024 11:43:48 +0100 Subject: [PATCH] project-recompile: Autoload and run in project root * lisp/progmodes/project.el (project-recompile): Autoload and use project root as `default-directory'. --- lisp/progmodes/project.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index ba5a6b6f056..d47b732712f 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -1455,15 +1455,14 @@ project-compile compilation-buffer-name-function))) (call-interactively #'compile))) +;;;###autoload (defun project-recompile (&optional edit-command) "Run `recompile' with appropriate buffer." (declare (interactive-only recompile)) (interactive "P") - (let ((compilation-buffer-name-function + (let ((default-directory (project-root (project-current t))) + (compilation-buffer-name-function (or project-compilation-buffer-name-function - ;; Should we error instead? When there's no - ;; project-specific naming, there is no point in using - ;; this command. compilation-buffer-name-function))) (recompile edit-command))) -- 2.45.2