mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(compilation-read-command, compilation-ask-about-save): New variables.

Browse Source 
(compile): Obey them.
This commit is contained in:
Richard M. Stallman 1994-01-01 16:32:44 +00:00
parent feea21d147
commit 900162957b
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/progmodes/compile.el
View File

@ -159,6 +159,14 @@ Each element has the form (REGEXP FILE-IDX LINE-IDX).
If REGEXP matches, the FILE-IDX'th subexpression gives the file
name, and the LINE-IDX'th subexpression gives the line number.")
(defvar compilation-read-command t
"If not nil, M-x compile reads the compilation command to use.
Otherwise, M-x compile just uses the value of `compile-command'.")
(defvar compilation-ask-about-save t
"If not nil, M-x compile asks which buffers to save before compiling.
Otherwise, it saves all modified buffers without asking.")
(defvar grep-regexp-alist
'(("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2))
"Regexp used to match grep hits. See `compilation-error-regexp-alist'.")
@ -226,11 +234,14 @@ Then start the next one.
The name used for the buffer is actually whatever is returned by
the function in `compilation-buffer-name-function', so you can set that
to a function that generates a unique name."
(interactive (list (read-from-minibuffer "Compile command: "
compile-command nil nil
'(compile-history . 1))))
(interactive
(if compilation-read-command
(list (read-from-minibuffer "Compile command: "
compile-command nil nil
'(compile-history . 1)))
(list compile-command)))
(setq compile-command command)
(save-some-buffers nil nil)
(save-some-buffers (not compilation-ask-about-save) nil)
(compile-internal compile-command "No more errors"))
;;;###autoload