;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 23:59:09 1993
;;; from file /gd/gnu/emacs/19.0/lisp/sgml-mode.el
;;; emacs version 19.15.16.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(byte-code "АБ!€ВГ!‡" [provide sgml-mode require compile] 2)
(defconst sgml-validate-command "sgmls -s" "\
*The command to validate an SGML document.
The file name of current buffer file name will be appended to this,
separated by a space.")
(defvar sgml-saved-validate-command nil "\
The command last used to validate in this buffer.")
(defvar sgml-mode-map nil "\
Keymap for SGML mode")
(byte-code "„ Б ВГД#€ВЕЖ#€ВЗИ#€Б‡" [sgml-mode-map make-sparse-keymap define-key ">" sgml-close-angle "/" sgml-slash "" sgml-validate] 4)
(defalias 'sgml-mode #[nil "А €	Г!€ЕЗЙК!€Л\nЙМ!€НЙО!€П!€ЙС!€ТЙУ!€ФЙХ!€ЦЙЧ!€ШЩЪЫ\"‡" [kill-all-local-variables text-mode-abbrev-table local-abbrev-table use-local-map sgml-mode-map "SGML" mode-name sgml-mode major-mode make-local-variable paragraph-start "^[ 	\n]\\|\\(</?\\([A-Za-z]\\([-.A-Za-z0-9= 	\n]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$\\)" paragraph-separate "^[ 	\n]*$\\|^</?\\([A-Za-z]\\([-.A-Za-z0-9= 	\n]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$" sgml-saved-validate-command set-syntax-table text-mode-syntax-table comment-start "<!-- " comment-end " -->" comment-indent-function sgml-comment-indent comment-start-skip "--[ 	]*" run-hooks text-mode-hook sgml-mode-hook] 3 "\
Major mode for editing SGML.
Makes > display the matching <.  Makes / display matching /.
Use \\[sgml-validate] to validate your document with an SGML parser." nil])
(defalias (quote sgml-comment-indent) #[nil "АБ!ѓ! `SfВ=ѓ `ГZfД=„! ЕЖx€iT]‡И‡" [looking-at "--" 33 2 60 " 	" nil comment-column 0] 2])
(defconst sgml-start-tag-regex "<[A-Za-z]\\([-.A-Za-z0-9= \n	]\\|\"[^\"]*\"\\|'[^']*'\\)*" "\
Regular expression that matches a non-empty start tag.
Any terminating > or / is not matched.")
(defvar sgml-mode-markup-syntax-table nil "\
Syntax table used for scanning SGML markup.")
(byte-code "„ Б ВГД#€ВЕЖ#€ВЗИ#€ВЙК#€Б‡" [sgml-mode-markup-syntax-table make-syntax-table modify-syntax-entry 60 "(>" 62 ")<" 45 "_ 1234" 39 "\""] 4)
(defconst sgml-angle-distance 4000 "\
*If non-nil, is the maximum distance to search for matching <.")
(defalias 'sgml-close-angle #[(arg) "АБ\n\"€\nГV…Л `ДЉЊѓ! e`Z]}€`eZИVѓZ `ЙZfК=ѓZ `ИZfК=ѓZ ЛМeН#ѓZ `ПРН#ѓY `=ѓY )„‡ b€ДСТЏ€ѓ‡ bѓ‡ УФ!ѓ… УЦP!„… УЧ!ѓ‡ Д„® b€ШЩeН#ѓ® `ПЫН#ѓ­ `=ѓ­ ))…К b€Ь ѓБ ЭЮ!‚К ЯаД€`{\"+‡" [insert-char 62 arg 0 nil blinkpos oldpos sgml-angle-distance 3 2 93 re-search-backward "<!\\[\\(-?[A-Za-z0-9. 	\n&;]\\|--\\([^-]\\|-[^-]\\)*--\\)*\\[" t msspos search-forward "]]>" (byte-code "А БДЋЕ!€ЗЙ\"\n+А‡" [syntax-table t parse-sexp-ignore-comments oldtable ((set-syntax-table oldtable)) set-syntax-table sgml-mode-markup-syntax-table scan-sexps oldpos -1 blinkpos] 3) ((error)) looking-at "<\\(\\?\\|/?[A-Za-z>]\\|!\\([[A-Za-z]\\|--\\)\\)" sgml-start-tag-regex "[/<]" "</[A-Za-z][-.A-Za-z0-9]*[ 	]*<" search-backward "<?" pipos ">" pos-visible-in-window-p sit-for 1 message "Matches %s"] 4 "\
Insert > and display matching <." "p"])
(defconst sgml-slash-distance 1000 "\
*If non-nil, is the maximum distance to search for matching /.")
(defalias 'sgml-slash #[(arg) "АБ\n\"€\nГV…— `ДГЉЊѓ$ e`Z]}€Й\neЛ#ѓ6 Г•S=„v Sb€„v МНeЛ#ѓv ЉЙ\neЛ#…T Г•)‰`=ѓo Г=ѓi `‚r S‚r T)‚; )…– b€П ѓ‹ РС!‚– ТУГy€`T{\",‡" [insert-char 47 arg 0 nil level blinkpos oldpos sgml-slash-distance re-search-backward sgml-start-tag-regex t search-backward "/" tagend pos-visible-in-window-p sit-for 1 message "Matches %s"] 5 "\
Insert / and display any previous matching /.
Two /s are treated as matching if the first / ends a net-enabling
start tag, and the second / is the corresponding null end tag." "p"])
(defalias 'sgml-validate #[(command) "ВГ\"‡" [command sgml-saved-validate-command compile-internal "No more errors"] 3 "\
Validate an SGML document.
Runs COMMAND, a shell command, in a separate process asynchronously
with output going to the buffer *compilation*.
You can then use the command \\[next-error] to find the next error message
and move to the line in the SGML document that caused it." (list (read-string "Validate command: " (or sgml-saved-validate-command (concat sgml-validate-command " " (let ((name (buffer-file-name))) (and name (file-name-nondirectory name)))))))])