diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-08-26 10:02:03 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-08-26 10:02:03 +0000 |
| commit | 27024d2fd1de4abb378cba583d1e1bb4633ac740 (patch) | |
| tree | 190ad64a65bb976b0d613dfb0d0029962de9bb1c /lisp/textmodes | |
| parent | a6022f153abae31d4e8e0568e56717676d7e560e (diff) | |
| download | emacs-27024d2fd1de4abb378cba583d1e1bb4633ac740.tar.gz | |
(sgml-validate): Use `compilation-start'
instead of the obsolete `compile-internal'.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." |