summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDmitry Gutov <dgutov@yandex.ru>2020-05-12 04:17:23 +0300
committerDmitry Gutov <dgutov@yandex.ru>2020-05-12 04:17:48 +0300
commit9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8 (patch)
tree032a38c29614e70241294bbdef6cb10b654865ca
parentac837ee5ccaaafd2936446ad7b2b723c429fc965 (diff)
downloademacs-9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8.tar.gz
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.
-rw-r--r--lisp/progmodes/project.el30
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.