diff options
| -rw-r--r-- | lisp/progmodes/project.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 3a9e8bcee54..74495cf07a4 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el | |||
| @@ -716,9 +716,10 @@ PREDICATE, HIST, and DEFAULT have the same meaning as in | |||
| 716 | ;;;###autoload | 716 | ;;;###autoload |
| 717 | (defun project-shell () | 717 | (defun project-shell () |
| 718 | "Start an inferior shell in the current project's root directory. | 718 | "Start an inferior shell in the current project's root directory. |
| 719 | With \\[universal-argument] prefix, create subsequent shell | 719 | If such buffer already exists (one or several), switch to the one |
| 720 | buffers with uniquified names. If several Shell buffers exists, | 720 | that was created first. |
| 721 | this command jumps to the first created such buffer." | 721 | With \\[universal-argument] prefix, create a new inferior shell |
| 722 | buffer with uniquified name." | ||
| 722 | (interactive) | 723 | (interactive) |
| 723 | (let* ((default-directory (project-root (project-current t))) | 724 | (let* ((default-directory (project-root (project-current t))) |
| 724 | (default-project-shell-name | 725 | (default-project-shell-name |
| @@ -734,9 +735,10 @@ this command jumps to the first created such buffer." | |||
| 734 | ;;;###autoload | 735 | ;;;###autoload |
| 735 | (defun project-eshell () | 736 | (defun project-eshell () |
| 736 | "Start Eshell in the current project's root directory. | 737 | "Start Eshell in the current project's root directory. |
| 737 | With \\[universal-argument] prefix, create subsequent shell | 738 | If such buffer already exists (one or several), switch to the one |
| 738 | buffers with uniquified names. If several Eshell buffers exists, | 739 | that was created first. |
| 739 | this command jumps to the first created such buffer." | 740 | With \\[universal-argument] prefix, create a new Eshell buffer |
| 741 | with uniquified name." | ||
| 740 | (interactive) | 742 | (interactive) |
| 741 | (let* ((default-directory (project-root (project-current t))) | 743 | (let* ((default-directory (project-root (project-current t))) |
| 742 | (eshell-buffer-name | 744 | (eshell-buffer-name |