scratch/project-switching-x 9cfc9c9 4/5: Move project-dired and project-eshell higher

[Dmitry Gutov]

branch: scratch/project-switching-x
commit 9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Move project-dired and project-eshell higher
    
    * lisp/progmodes/project.el:
    (project-dired, project-eshell): Move higher in the file,
    according to their universal utility.
---
 lisp/progmodes/project.el | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 4410b40..39c122f 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.