From 27024d2fd1de4abb378cba583d1e1bb4633ac740 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Fri, 26 Aug 2005 10:02:03 +0000 Subject: [PATCH] (sgml-validate): Use `compilation-start' instead of the obsolete `compile-internal'. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/sgml-mode.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67faa758ca3..88c099f68da 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-08-26 Romain Francoise + + * textmodes/sgml-mode.el (sgml-validate): Use `compilation-start' + instead of the obsolete `compile-internal'. + 2005-08-26 Juanma Barranquero * smerge-mode.el (smerge-refined-change): Add :group. diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 1c43ce39ce6..0d4281c1720 100644 --- 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))))))) -(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." -- 2.39.2