4(defun delphi-compile (project)
5"Run a delphi compilation, prompting for the project file location.
6Saves the project file location for re-use in a recompile"
7 (interactive (read-file-name "Run ack in directory: " nil "" t))
8 ;; Check that it's really a file.
9 (or (file-regular-p project)
10 (error "delphi compile needs a file: %s" project))
11 (setq project-file project)
13 (compilation-directory (file-name-directory project-file))))
14 (compile compile-command)
16 (set-buffer "*compilation*")