;;;###autoload
(defun project-shell ()
"Start an inferior shell in the current project's root directory.
-If such buffer already exists (one or several), switch to the one
-that was created first.
-With \\[universal-argument] prefix, create a new inferior shell
-buffer with uniquified name."
+If a buffer already exists for running a shell in the project's root,
+switch to it. Otherwise, create a new shell buffer.
+With \\[universal-argument] prefix arg, create a new inferior shell buffer even
+if one already exist."
(interactive)
(let* ((default-directory (project-root (project-current t)))
(default-project-shell-name
;;;###autoload
(defun project-eshell ()
"Start Eshell in the current project's root directory.
-If such buffer already exists (one or several), switch to the one
-that was created first.
-With \\[universal-argument] prefix, create a new Eshell buffer
-with uniquified name."
+If a buffer already exists for running Eshell in the project's root,
+switch to it. Otherwise, create a new Eshell buffer.
+With \\[universal-argument] prefix arg, create a new Eshell buffer even
+if one already exist."
(interactive)
(let* ((default-directory (project-root (project-current t)))
(eshell-buffer-name