procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(sgml-validate): compile1 renamed to compile-internal.

Browse source 
(sgml-mode): Add autoload cookie.
This commit is contained in:
Richard M. Stallman 1993-05-26 18:20:35 +00:00
parent 2b845a8c70
commit c7aa4667af
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/textmodes/sgml-mode.el
View file

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