emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/project-switching afb96da 05/15: Move project-dired and project-


From: Simen Heggest°yl
Subject: feature/project-switching afb96da 05/15: Move project-dired and project-eshell higher
Date: Tue, 26 May 2020 11:43:18 -0400 (EDT)

branch: feature/project-switching
commit afb96da6111ed0f9c26b6b0ff91aaddfec6277a5
Author: Dmitry Gutov <address@hidden>
Commit: Simen Heggest├Şyl <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 7209246..12b7e3f 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
@@ -782,21 +797,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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]