Commit 27024d2f authored by Romain Francoise's avatar Romain Francoise
Browse files

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

instead of the obsolete `compile-internal'.
parent a6022f15
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> 2005-08-26 Juanma Barranquero <lekktu@gmail.com>
   
* smerge-mode.el (smerge-refined-change): Add :group. * smerge-mode.el (smerge-refined-change): Add :group.
......
...@@ -901,7 +901,7 @@ With prefix argument ARG, repeat this ARG times." ...@@ -901,7 +901,7 @@ With prefix argument ARG, repeat this ARG times."
(forward-list))))))) (forward-list)))))))
(autoload 'compile-internal "compile") (autoload 'compilation-start "compile")
(defun sgml-validate (command) (defun sgml-validate (command)
"Validate an SGML document. "Validate an SGML document.
...@@ -919,7 +919,7 @@ and move to the line in the SGML document that caused it." ...@@ -919,7 +919,7 @@ and move to the line in the SGML document that caused it."
(file-name-nondirectory name)))))))) (file-name-nondirectory name))))))))
(setq sgml-saved-validate-command command) (setq sgml-saved-validate-command command)
(save-some-buffers (not compilation-ask-about-save) nil) (save-some-buffers (not compilation-ask-about-save) nil)
(compile-internal command "No more errors")) (compilation-start command))
(defsubst sgml-at-indentation-p () (defsubst sgml-at-indentation-p ()
"Return true if point is at the first non-whitespace character on the line." "Return true if point is at the first non-whitespace character on the line."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment