diff options
| -rw-r--r-- | lisp/progmodes/project.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 4410b406230..39c122f75ff 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -605,6 +605,21 @@ PREDICATE, HIST, and DEFAULT have the same meaning as in collection predicate t res hist nil))) res)) +;;;###autoload +(defun project-dired () + "Open Dired in the current project." + (interactive) + (let ((dirs (project-roots (project-current t)))) + (dired (car dirs)))) + +;;;###autoload +(defun project-eshell () + "Open Eshell in the current project." + (interactive) + (let* ((dirs (project-roots (project-current t))) + (default-directory (car dirs))) + (eshell t))) + (declare-function fileloop-continue "fileloop" ()) ;;;###autoload @@ -717,21 +732,6 @@ Used by `project-switch-project' to construct a dispatch menu of commands available upon \"switching\" to another project.") ;;;###autoload -(defun project-dired () - "Open Dired in the current project." - (interactive) - (let ((dirs (project-roots (project-current t)))) - (dired (car dirs)))) - -;;;###autoload -(defun project-eshell () - "Open Eshell in the current project." - (interactive) - (let* ((dirs (project-roots (project-current t))) - (default-directory (car dirs))) - (eshell t))) - -;;;###autoload (defun project-add-switch-command (symbol key label) "Add a function to the project switching dispatch menu. SYMBOL should stand for a function to be invoked by the key KEY. |