Commit babdd2e9 authored by Philip K's avatar Philip K Committed by Dmitry Gutov

Add project-compile command

* lisp/progmodes/project.el (project-compile):
  New function.
parent 3c2624e1
Pipeline #5621 passed with stage
in 65 minutes and 26 seconds
......@@ -681,5 +681,17 @@ loop using the command \\[fileloop-continue]."
from to (project-files (project-current t)) 'default)
(fileloop-continue))
;;;###autoload
(defun project-compile ()
"Run `compile' in the project root."
(interactive)
(let* ((pr (project-current t))
(roots (project-roots pr))
;; TODO: be more intelligent when choosing a directory. This
;; currently isn't a priority, since no `project-roots'
;; implementation returns more that one directory.
(default-directory (car roots)))
(call-interactively 'compile)))
(provide 'project)
;;; project.el ends here
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment