diff options
| author | Richard M. Stallman <[email protected]> | 1997-04-05 21:52:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1997-04-05 21:52:58 +0000 |
| commit | 0afdd8d04101a4540a1f4ccca9afc049ebabcf20 (patch) | |
| tree | eba2c33c5963ed2a38facf7da0c99884efe5f0e6 | |
| parent | 531cbff1cc53fe36ddf29a33876f3fdb9eb3666b (diff) | |
(sgml-validate): Offer to save the buffer first.
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 3b8af26750..ef3f822cfb 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -712,6 +712,9 @@ and move to the line in the SGML document that caused it." (and name (file-name-nondirectory name)))))))) (setq sgml-saved-validate-command command) + (if (or (not compilation-ask-about-save) + (y-or-n-p (message "Save buffer %s? " (buffer-name)))) + (save-buffer)) (compile-internal command "No more errors")) |