(let ((src-dirs (ada-prj-get 'src_dir project))
(prj-dirs (ada-prj-get 'prj_dir project)))
- ;; FIXME: use a dispatching function instead, to avoid "require" here,
- ;; which gives "warning: function not known".
+ ;; FIXME: use a dispatching function instead, with autoload, to
+ ;; avoid "require" here, which gives "warning: function not
+ ;; known".
;; Using 'require' at top level gives the wrong default ada-xref-tool
(cl-ecase (ada-prj-get 'xref_tool project)
((gnat gnat_inspect)
)
buffer)))
+(defun ada-gnat-show-run-buffer ()
+ (interactive)
+ (pop-to-buffer (gnat-run-buffer)))
+
(defun gnat-run (exec command &optional err-msg expected-status)
"Run a gnat command line tool, as \"EXEC COMMAND\".
EXEC must be an executable found on `exec-path'.
(save-some-buffers t)
(add-to-list 'opts "-f")
(with-current-buffer (gnat-run-buffer)
- ;; FIXME: gnat-run-buffer requires a project, but we don't
- ;; actually need one. Just use a temp buffer. Same for other
- ;; uses of gnat-run-no-prj.
(gnat-run-no-prj
(append (list "stub") opts (list start-file "-cargs") switches)
(file-name-directory body-file-name))