aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2020-05-12 04:17:23 +0300
committerDmitry Gutov2020-05-12 04:17:48 +0300
commit9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8 (patch)
tree032a38c29614e70241294bbdef6cb10b654865ca
parentac837ee5ccaaafd2936446ad7b2b723c429fc965 (diff)
downloademacs-9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8.tar.gz
emacs-9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8.zip
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
605 collection predicate t res hist nil))) 605 collection predicate t res hist nil)))
606 res)) 606 res))
607 607
608;;;###autoload
609(defun project-dired ()
610 "Open Dired in the current project."
611 (interactive)
612 (let ((dirs (project-roots (project-current t))))
613 (dired (car dirs))))
614
615;;;###autoload
616(defun project-eshell ()
617 "Open Eshell in the current project."
618 (interactive)
619 (let* ((dirs (project-roots (project-current t)))
620 (default-directory (car dirs)))
621 (eshell t)))
622
608(declare-function fileloop-continue "fileloop" ()) 623(declare-function fileloop-continue "fileloop" ())
609 624
610;;;###autoload 625;;;###autoload
@@ -717,21 +732,6 @@ Used by `project-switch-project' to construct a dispatch menu of
717commands available upon \"switching\" to another project.") 732commands available upon \"switching\" to another project.")
718 733
719;;;###autoload 734;;;###autoload
720(defun project-dired ()
721 "Open Dired in the current project."
722 (interactive)
723 (let ((dirs (project-roots (project-current t))))
724 (dired (car dirs))))
725
726;;;###autoload
727(defun project-eshell ()
728 "Open Eshell in the current project."
729 (interactive)
730 (let* ((dirs (project-roots (project-current t)))
731 (default-directory (car dirs)))
732 (eshell t)))
733
734;;;###autoload
735(defun project-add-switch-command (symbol key label) 735(defun project-add-switch-command (symbol key label)
736 "Add a function to the project switching dispatch menu. 736 "Add a function to the project switching dispatch menu.
737SYMBOL should stand for a function to be invoked by the key KEY. 737SYMBOL should stand for a function to be invoked by the key KEY.