From 28abf6907a28948747ecb4135f09a2802f0fe0fd Mon Sep 17 00:00:00 2001 From: grischka Date: Mon, 24 Mar 2008 17:54:29 +0100 Subject: [PATCH] dired run --- eproject.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/eproject.el b/eproject.el index 842d1c3..574418a 100644 --- a/eproject.el +++ b/eproject.el @@ -990,6 +990,14 @@ do not belong to project files" (prj-setmenu) ))) +(defun prj-dired-run () + (interactive) + (let ((f (dired-get-marked-files)) c) + (and (setq c (pop f)) + (null f) + (let ((prj-directory (file-name-directory c))) + (prj-run c))))) + (defun eproject-dired () "Start a dired window with the project directory." (interactive) @@ -1000,6 +1008,7 @@ do not belong to project files" (let ((map dired-mode-map)) (define-key map [mouse-2] 'dired-find-file) (define-key map "a" 'prj-dired-addfiles) + (define-key map "r" 'prj-dired-run) (define-key map [menu-bar operate command] '("Add to Project" "Add current or marked file(s) to project" . prj-dired-addfiles)) ))) -- 2.11.4.GIT