Mercurial > emacs
changeset 17309:a8073ecbea23
(sgml-validate): Offer to save the buffer first.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Apr 1997 21:52:58 +0000 |
| parents | e52fa60d97e8 |
| children | 9c0ece61d60a |
| files | lisp/textmodes/sgml-mode.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el Sat Apr 05 21:51:44 1997 +0000 +++ b/lisp/textmodes/sgml-mode.el Sat Apr 05 21:52:58 1997 +0000 @@ -712,6 +712,9 @@ (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"))