From: Dmitry Gutov <dgutov@yandex.ru>
Date: Tue, 12 May 2020 01:17:23 +0000 (+0300)
Subject: Move project-dired and project-eshell higher
X-Git-Tag: emacs-28.0.90~7260^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=afb96da6111ed0f9c26b6b0ff91aaddfec6277a5;p=emacs.git

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.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7209246c228..12b7e3fdb93 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -662,6 +662,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
@@ -781,21 +796,6 @@ It's also possible to enter an arbitrary directory."
 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.