diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-26 18:20:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-26 18:20:35 +0000 |
| commit | c7aa4667af788ed950c1c97cd0390324c8e1f3fd (patch) | |
| tree | 1e1ce2c0a2692e689e4ad78adabe9454a5c23242 /lisp | |
| parent | 2b845a8c707203fad8cebf88bd397c5d9915c6c0 (diff) | |
| download | emacs-c7aa4667af788ed950c1c97cd0390324c8e1f3fd.tar.gz | |
(sgml-validate): compile1 renamed to compile-internal.
(sgml-mode): Add autoload cookie.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/sgml-mode.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 676edaf0519..d713d4577d5 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -64,6 +64,7 @@ separated by a space.") (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 @@ Any terminating > or / is not matched.") (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 @@ when > is inserted.") ;;; 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 move to the line in the SGML document that caused it." (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 |