(sgml-validate): Use `compilation-start'

instead of the obsolete `compile-internal'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 67faa758ca358f8fdb0b1fc952f2bb5a767c66dc..88c099f68da0c29c0704d9e9b8aa2ec37b6b5dae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 1c43ce39ce6a0d93a345a23b8b1228f59590194f..0d4281c1720e6cfa3ba408beb9eea5116e229ec6 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -901,7 +901,7 @@ With prefix argument ARG, repeat this ARG times."
                  (forward-list)))))))
 
 \f
-(autoload 'compile-internal "compile")
+(autoload 'compilation-start "compile")
 
 (defun sgml-validate (command)
   "Validate an SGML document.
@@ -919,7 +919,7 @@ and move to the line in the SGML document that caused it."
                                         (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."