master b26ccf488ef: project.el: Use project-name to calculate prefixed buffer name

[Dmitry Gutov]

branch: master
commit b26ccf488ef9a784c418245b7b01cb349af85006
Author: Spencer Baugh <sbaugh@janestreet.com>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    project.el: Use project-name to calculate prefixed buffer name
    
    * lisp/progmodes/project.el (project-prefixed-buffer-name):
    Use project-name to calculate prefixed buffer name (bug#62548).
    (project-compilation-buffer-name-function): Update doc.
---
 lisp/progmodes/project.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 11228226592..877d79353aa 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1248,8 +1248,10 @@ If you exit the `query-replace', you can later continue 
the
 
 (defun project-prefixed-buffer-name (mode)
   (concat "*"
-          (file-name-nondirectory
-           (directory-file-name default-directory))
+          (if-let ((proj (project-current nil)))
+              (project-name proj)
+            (file-name-nondirectory
+             (directory-file-name default-directory)))
           "-"
           (downcase mode)
           "*"))
@@ -1261,7 +1263,7 @@ If non-nil, it overrides 
`compilation-buffer-name-function' for
   :version "28.1"
   :group 'project
   :type '(choice (const :tag "Default" nil)
-                 (const :tag "Prefixed with root directory name"
+                 (const :tag "Prefixed with project name"
                         project-prefixed-buffer-name)
                  (function :tag "Custom function")))