From b26ccf488ef9a784c418245b7b01cb349af85006 Mon Sep 17 00:00:00 2001 From: Spencer Baugh Date: Sun, 9 Apr 2023 04:50:20 +0300 Subject: [PATCH] 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"))) -- 2.39.2