From: Richard M. Stallman Date: Sat, 1 Jan 1994 16:32:44 +0000 (+0000) Subject: (compilation-read-command, compilation-ask-about-save): New variables. X-Git-Tag: emacs-19.34~10445 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=900162957bccf93008c8b4d70888eae056f208fa;p=emacs.git (compilation-read-command, compilation-ask-about-save): New variables. (compile): Obey them. --- diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 565ebd1447e..5151ca9f710 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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