Index: emacs/lisp/textmodes/sgml-mode.el
diff -c emacs/lisp/textmodes/sgml-mode.el:1.112 
emacs/lisp/textmodes/sgml-mode.el:1.113
*** emacs/lisp/textmodes/sgml-mode.el:1.112     Mon Aug 15 21:29:32 2005
--- emacs/lisp/textmodes/sgml-mode.el   Fri Aug 26 10:02:03 2005
***************
*** 901,907 ****
                  (forward-list)))))))
  
  
! (autoload 'compile-internal "compile")
  
  (defun sgml-validate (command)
    "Validate an SGML document.
--- 901,907 ----
                  (forward-list)))))))
  
  
! (autoload 'compilation-start "compile")
  
  (defun sgml-validate (command)
    "Validate an SGML document.
***************
*** 919,925 ****
                                         (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"))
  
  (defsubst sgml-at-indentation-p ()
    "Return true if point is at the first non-whitespace character on the line."
--- 919,925 ----
                                         (file-name-nondirectory name))))))))
    (setq sgml-saved-validate-command command)
    (save-some-buffers (not compilation-ask-about-save) nil)
!   (compilation-start command))
  
  (defsubst sgml-at-indentation-p ()
    "Return true if point is at the first non-whitespace character on the line."


_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs

Reply via email to