Re: build-and-save-all

[Kevin Rodgers]

Kevin Rodgers wrote:
> (defun compile-project ()
>   "Compile the project to which this source file belongs."
>   (interactive)
>   ;; ./project.dir must be a symbolic link to the project directory:
>   (let ((default-directory (file-truename "project.dir")))
>     (compile "make")))

I forgot the part about saving all the buffers:

(defun compile-project ()
  "Compile the project to which this source file belongs."
  (interactive)
  ;; ./project.dir must be a symbolic link to the project directory:
  (let ((default-directory (file-truename "project.dir"))
        (compilation-ask-about-save nil))
    (compile "make")))

--
Kevin Rodgers