;ELC   
;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Thu Jun 15 18:27:16 1995
;;; from file /gd/gnu/emacs/19.0/lisp/sgml-mode.el
;;; emacs version 19.28.94.3.
;;; 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.28.90")))
    (error "`sgml-mode.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!€ВГ!‡" [provide sgml-mode require compile] 2)
#@134 *The command to validate an SGML document.
The file name of current buffer file name will be appended to this,
separated by a space.
(defconst sgml-validate-command "sgmls -s" (#$ . -547))
#@51 The command last used to validate in this buffer.
(defvar sgml-saved-validate-command nil (#$ . 742))
#@22 Keymap for SGML mode
(defvar sgml-mode-map nil (#$ . 850))
(byte-code "„ Б ВГД#€ВЕЖ#€ВЗИ#€Б‡" [sgml-mode-map make-sparse-keymap define-key ">" sgml-close-angle "/" sgml-slash "" sgml-validate] 4)
#@159 Major mode for editing SGML.
Makes > display the matching <.  Makes / display matching /.
Use \[sgml-validate] to validate your document with an SGML parser.
(defalias 'sgml-mode #[nil "А €	Г\f!€ЕЗЙК!€Л\nЙМ!€Н\fЙО!€П!€ЙС!€ТЙУ!€ФЙХ!€ЦЙЧ!€ШЩЪЫ\"‡" [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 (#$ . 1061) nil])
(defalias 'sgml-comment-indent #[nil "АБ!ѓ! `SfВ=ѓ `ГZfД=„! ЕЖx€iT]‡И‡" [looking-at "--" 33 2 60 " 	" nil comment-column 0] 2])
#@95 Regular expression that matches a non-empty start tag.
Any terminating > or / is not matched.
(defconst sgml-start-tag-regex "<[A-Za-z]\\([-.A-Za-z0-9= \n	]\\|\"[^\"]*\"\\|'[^']*'\\)*" (#$ . 2064))
#@45 Syntax table used for scanning SGML markup.
(defvar sgml-mode-markup-syntax-table nil (#$ . 2268))
(byte-code "„ Б ВГД#€ВЕЖ#€ВЗИ#€ВЙК#€Б‡" [sgml-mode-markup-syntax-table make-syntax-table modify-syntax-entry 60 "(>" 62 ")<" 45 "_ 1234" 39 "\""] 4)
#@64 *If non-nil, is the maximum distance to search for matching <.
(defconst sgml-angle-distance 4000 (#$ . -2529))
#@34 Insert > and display 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 (#$ . 2647) "p"])
#@64 *If non-nil, is the maximum distance to search for matching /.
(defconst sgml-slash-distance 1000 (#$ . -3556))
#@176 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.
(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 (#$ . 3675) "p"])
#@275 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.
(defalias 'sgml-validate #[(command) "ВГ\"‡" [command sgml-saved-validate-command compile-internal "No more errors"] 3 (#$ . 4261) (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)))))))])