mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source 
instead of the obsolete `compile-internal'.
This commit is contained in:
Romain Francoise 2005-08-26 10:02:03 +00:00
parent a6022f153a
commit 27024d2fd1
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

4
lisp/textmodes/sgml-mode.el
View File

@ -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."