Commit 9e86ab0b authored by Sam Steingold's avatar Sam Steingold
Browse files

(compilation-save-buffers-predicate): New custom variable.

(compile, recompile): Pass it to `save-some-buffers'.
parent 42d3cab7
2010-04-07 Sam Steingold <sds@gnu.org>
* progmodes/compile.el (compilation-save-buffers-predicate): New
custom variable.
(compile, recompile): Pass it to `save-some-buffers'.
2010-04-07 Jan Djärv <jan.h.d@swipnet.se>
* wid-edit.el (widget-choose): Move cursor to the second line of
......
......@@ -583,6 +583,21 @@ Otherwise, it saves all modified buffers without asking."
:type 'boolean
:group 'compilation)
;;;###autoload
(defcustom compilation-save-buffers-predicate nil
"The second argument (PRED) passed to `save-some-buffers' before compiling.
E.g., one can set this to
(lambda ()
(string-prefix-p my-compilation-root (file-truename (buffer-file-name))))
to limit saving to files located under `my-compilation-root'.
Note, that, in general, `compilation-directory' cannot be used instead
of `my-compilation-root' here."
:type '(choice
(const :tag "Default (save all file-visiting buffers)" nil)
(const :tag "Save all buffers" t)
function)
:group 'compilation)
;;;###autoload
(defcustom compilation-search-path '(nil)
"List of directories to search for source files named in error messages.
......@@ -1097,7 +1112,8 @@ to a function that generates a unique name."
(consp current-prefix-arg)))
(unless (equal command (eval compile-command))
(setq compile-command command))
(save-some-buffers (not compilation-ask-about-save) nil)
(save-some-buffers (not compilation-ask-about-save)
compilation-save-buffers-predicate)
(setq-default compilation-directory default-directory)
(compilation-start command comint))
......@@ -1108,7 +1124,8 @@ If this is run in a Compilation mode buffer, re-use the arguments from the
original use. Otherwise, recompile using `compile-command'.
If the optional argument `edit-command' is non-nil, the command can be edited."
(interactive "P")
(save-some-buffers (not compilation-ask-about-save) nil)
(save-some-buffers (not compilation-ask-about-save)
compilation-save-buffers-predicate)
(let ((default-directory (or compilation-directory default-directory)))
(when edit-command
(setcar compilation-arguments
......
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