Mercurial > emacs
changeset 65133:265f46863d5b
(sgml-validate): Use `compilation-start'
instead of the obsolete `compile-internal'.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Fri, 26 Aug 2005 10:02:03 +0000 |
| parents | 459cbb37cbe7 |
| children | c0ac29c13790 |
| files | lisp/ChangeLog lisp/textmodes/sgml-mode.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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."