From 3bfed5b6b115803978c9664353f47b06bf7b5b93 Mon Sep 17 00:00:00 2001 From: Barry Warsaw Date: Tue, 19 May 1998 16:25:04 +0000 Subject: (py-ask-about-save): New variable used in py-execute-import-or-reload. Same semantics as compilation-ask-about-save. --- Misc/python-mode.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/Misc/python-mode.el b/Misc/python-mode.el index e4d3dd0..644f1ef 100644 --- 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 -- cgit v0.12