procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/project.el: Use project-prefixed-buffer-name in more places.

Browse source 
(project-shell, project-eshell): Use project-prefixed-buffer-name (bug#47975).
(project-compilation-buffer-name-function): Add :version tag.
This commit is contained in:
Juri Linkov 2021-04-25 00:54:01 +03:00
parent 48b6cec61c
commit bc026835df
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/project.el
View file

@ -918,10 +918,7 @@ With \\[universal-argument] prefix arg, create a new inferior shell buffer even
if one already exists."
(interactive)
(let* ((default-directory (project-root (project-current t)))
(default-project-shell-name
(concat "*" (file-name-nondirectory
(directory-file-name default-directory))
"-shell*"))
(default-project-shell-name (project-prefixed-buffer-name "shell"))
(shell-buffer (get-buffer default-project-shell-name)))
(if (and shell-buffer (not current-prefix-arg))
(pop-to-buffer-same-window shell-buffer)
@ -937,10 +934,7 @@ if one already exists."
(interactive)
(defvar eshell-buffer-name)
(let* ((default-directory (project-root (project-current t)))
(eshell-buffer-name
(concat "*" (file-name-nondirectory
(directory-file-name default-directory))
"-eshell*"))
(eshell-buffer-name (project-prefixed-buffer-name "eshell"))
(eshell-buffer (get-buffer eshell-buffer-name)))
(if (and eshell-buffer (not current-prefix-arg))
(pop-to-buffer-same-window eshell-buffer)
@ -1004,6 +998,7 @@ loop using the command \\[fileloop-continue]."
"Function to compute the name of a project compilation buffer.
If non-nil, it overrides `compilation-buffer-name-function' for
`project-compile'."
:version "28.1"
:group 'project
:type '(choice (const :tag "Default" nil)
(const :tag "Prefixed with root directory name"