# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860277178 0
# Node ID a8073ecbea23706c9e1954b41a8ce2865ea04524
# Parent  e52fa60d97e8a370c2643420237bdd6ca6dfc39b
(sgml-validate): Offer to save the buffer first.

diff -r e52fa60d97e8 -r a8073ecbea23 lisp/textmodes/sgml-mode.el
--- 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"))