# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1125050523 0
# Node ID 265f46863d5b122d34727273a06faa5a53715fe5
# Parent  459cbb37cbe703966c22f7cbcb0014ad1f789cdb
(sgml-validate): Use `compilation-start'
instead of the obsolete `compile-internal'.

diff -r 459cbb37cbe7 -r 265f46863d5b lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Aug 26 09:37:57 2005 +0000
+++ b/lisp/ChangeLog	Fri Aug 26 10:02:03 2005 +0000
@@ -1,3 +1,8 @@
+2005-08-26  Romain Francoise  <romain@orebokech.com>
+
+	* textmodes/sgml-mode.el (sgml-validate): Use `compilation-start'
+	instead of the obsolete `compile-internal'.
+
 2005-08-26  Juanma Barranquero  <lekktu@gmail.com>
 
 	* smerge-mode.el (smerge-refined-change): Add :group.
diff -r 459cbb37cbe7 -r 265f46863d5b lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Fri Aug 26 09:37:57 2005 +0000
+++ b/lisp/textmodes/sgml-mode.el	Fri Aug 26 10:02:03 2005 +0000
@@ -901,7 +901,7 @@
 		  (forward-list)))))))
 
 
-(autoload 'compile-internal "compile")
+(autoload 'compilation-start "compile")
 
 (defun sgml-validate (command)
   "Validate an SGML document.
@@ -919,7 +919,7 @@
 					 (file-name-nondirectory name))))))))
   (setq sgml-saved-validate-command command)
   (save-some-buffers (not compilation-ask-about-save) nil)
-  (compile-internal command "No more errors"))
+  (compilation-start command))
 
 (defsubst sgml-at-indentation-p ()
   "Return true if point is at the first non-whitespace character on the line."