diff options
| author | Dmitry Gutov | 2020-05-12 04:17:23 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2020-05-12 04:17:48 +0300 |
| commit | 9cfc9c988abcb210f1d0a9f7b7c2fc7d7071a3a8 (patch) | |
| tree | 032a38c29614e70241294bbdef6cb10b654865ca | |
| parent | ac837ee5ccaaafd2936446ad7b2b723c429fc965 (diff) | |
| download | emacs-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.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 | |||
| 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 | |||
| 717 | commands available upon \"switching\" to another project.") | 732 | commands 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. |
| 737 | SYMBOL should stand for a function to be invoked by the key KEY. | 737 | SYMBOL should stand for a function to be invoked by the key KEY. |