[PATCH] Add buffer name option for project-compile

[Ivan Sokolov <ivan-p-sokolov@ya.ru>]

[-- Attachment #1: Type: text/plain, Size: 217 bytes --]

I suggest adding a separate buffer name variable for project-compile command.
This will allow users to have compile buffers for each project. Although it is already possible it requires a complex buffer name function.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: project-compilation-buffer-name.patch --]
[-- Type: text/x-diff; name="project-compilation-buffer-name.patch", Size: 1345 bytes --]

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index b6a886f731..f5efeb2a84 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -980,12 +980,31 @@ project-query-replace-regexp
 (defvar compilation-read-command)
 (declare-function compilation-read-command "compile")
 
+(defun project--compilation-buffer-name (mode)
+  (concat "*"
+          (file-name-nondirectory
+           (directory-file-name default-directory))
+          "-"
+          (downcase mode)
+          "*"))
+
+(defcustom project-compilation-buffer-name-function nil
+  "Function to compute the name of a compilation buffer.
+If present it overrides `compilation-buffer-name-function' for
+`project-compile'."
+  :group 'project
+  :type '(choice (const :tag "None" nil)
+                 (function project-compilation-buffer-name)))
+
 ;;;###autoload
 (defun project-compile ()
   "Run `compile' in the project root."
   (declare (interactive-only compile))
   (interactive)
-  (let ((default-directory (project-root (project-current t))))
+  (let ((default-directory (project-root (project-current t)))
+        (compilation-buffer-name-function
+         (or project-compilation-buffer-name-function
+             compilation-buffer-name-function)))
     (call-interactively #'compile)))
 
 (defun project--read-project-buffer ()