# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738440435 0
# Node ID 8cf203c42bee25058255003338b2a0eca51ec537
# Parent  c6c87b7f85b8bf516dbd958f50cb91e87d71baa9
(sgml-validate): compile1 renamed to compile-internal.
(sgml-mode): Add autoload cookie.

diff -r c6c87b7f85b8 -r 8cf203c42bee lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Wed May 26 18:12:00 1993 +0000
+++ b/lisp/textmodes/sgml-mode.el	Wed May 26 18:20:35 1993 +0000
@@ -64,6 +64,7 @@
   (define-key sgml-mode-map "/" 'sgml-slash)
   (define-key sgml-mode-map "\C-c\C-v" 'sgml-validate))
 
+;;;###autoload
 (defun sgml-mode ()
   "Major mode for editing SGML.
 Makes > display the matching <.  Makes / display matching /.
@@ -125,8 +126,7 @@
   (modify-syntax-entry ?\' "\"" sgml-mode-markup-syntax-table))
 
 (defconst sgml-angle-distance 4000
-  "*If non-nil, is the maximum distance to search for matching <
-when > is inserted.")
+  "*If non-nil, is the maximum distance to search for matching <.")
 
 (defun sgml-close-angle (arg)
   "Insert > and display matching <."
@@ -202,8 +202,7 @@
 ;;; I doubt that null end tags are used much for large elements,
 ;;; so use a small distance here.
 (defconst sgml-slash-distance 1000
-  "*If non-nil, is the maximum distance to search for matching /
-when / is inserted.")
+  "*If non-nil, is the maximum distance to search for matching /.")
 
 (defun sgml-slash (arg)
   "Insert / and display any previous matching /.
@@ -263,6 +262,6 @@
 				    (and name
 					 (file-name-nondirectory name))))))))
   (setq sgml-saved-validate-command command)
-  (compile1 command "No more errors"))
+  (compile-internal command "No more errors"))
 
 ;;; sgml-mode.el ends here