(py-ask-about-save): New variable used in

py-execute-import-or-reload.  Same semantics as
compilation-ask-about-save.

diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index e4d3dd07ae6b5ab5ca24c5ab204d12b7fc18e4d4..644f1ef8f285938700d9725da54192d9c6e57057 100644 (file)
--- a/Misc/python-mode.el
+++ b/Misc/python-mode.el
@@ -307,7 +307,15 @@ the Emacs bell is also rung as a warning."
   "*Jump to innermost exception frame in *Python Output* buffer.
 When this variable is non-nil and ane exception occurs when running
 Python code synchronously in a subprocess, jump immediately to the
-source code of the innermost frame.")
+source code of the innermost frame."
+  :type 'boolean
+  :group 'python)
+
+(defcustom py-ask-about-save t
+  "If not nil, ask about which buffers to save before executing some code.
+Otherwise, all modified buffers are saved without asking."
+  :type 'boolean
+  :group 'python)
 
 (defcustom py-backspace-function 'backward-delete-char-untabify
   "*Function called by `py-electric-backspace' when deleting backwards."
@@ -1385,7 +1393,8 @@ the latest version.  If the file's name does not end in \".py\", then
 do execfile instead.  If the current buffer is not visiting a file, do
 `py-execute-buffer' instead.  If the file local variable
 `py-master-file' is non-nil, import or reload the named file instead
-of the buffer's file.  The file is saved if necessary.
+of the buffer's file.  The file may be saved based on the value of
+`py-execute-import-or-reload-save-p'.
 
 See the `\\[py-execute-region]' docs for an account of some subtleties.
 
@@ -1406,9 +1415,8 @@ This is may be preferable to `\\[py-execute-buffer]' because:
   (let ((file (buffer-file-name (current-buffer))))
     (if file
         (progn
-;          (if (buffer-modified-p)
-;            ;; avoid message if unmodified
-;            (save-buffer))
+         ;; Maybe save some buffers
+         (save-some-buffers (not py-ask-about-save) nil)
           (py-execute-string
            (if (string-match "\\.py$" file)
                (let ((f (file-name-sans-extension