From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Apr 1997 21:52:58 +0000 (+0000)
Subject: (sgml-validate): Offer to save the buffer first.
X-Git-Tag: emacs-20.1~2636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0afdd8d04101a4540a1f4ccca9afc049ebabcf20;p=emacs.git

(sgml-validate): Offer to save the buffer first.
---

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 3b8af26750b..ef3f822cfb2 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"))