[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#62548: [PATCH] project.el: Use project-name to calculate prefixed bu
From: |
Spencer Baugh |
Subject: |
bug#62548: [PATCH] project.el: Use project-name to calculate prefixed buffer name |
Date: |
Thu, 30 Mar 2023 16:26:33 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) |
My apologies, my first patch was buggy. A working patch follows.
* lisp/progmodes/project.el (project-prefixed-buffer-name):
Use project-name to calculate prefixed buffer name
(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 @@ compilation-read-command
(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 @@ project-compilation-buffer-name-function
: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.30.2