;ELC   
;;; compiled by jwz@thalidomide on Mon Dec 27 18:33:50 1993
;;; from file /th/jwz/emacs19/lisp/modes/sgml-mode.el
;;; emacs version 19.9 Lucid (beta6).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 set-keymap-parent text-mode-map set-keymap-name define-key ">" sgml-close-angle "/" sgml-slash "" sgml-validate] 4)
(fset '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])
(fset '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 <.")
(fset 'sgml-close-angle #[(arg) "ÀÁ\n\"ˆ\nÃV…· `ÄŠŒ«Še`Z]}ˆ`eZÈV«¬`ÉZfÊ=«¤`ÈZfÊ=«œËÌeÍ#«•`ÏÐÍ#«‰`=«ƒ)¬¤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 /.")
(fset 'sgml-slash #[(arg) "ÀÁ\n\"ˆ\nÃV­þ`ÄÃŠŒ«Še`Z]}ˆÉ\neË#«ˆÃ•S=¬¸Sbˆ¬¯ÌÍeË#«¨ŠÉ\neË#­‚Ã•)‰`=«Ã=«…`ªˆSªƒT)ªM)­˜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"])
(fset '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." (byte-code "ÀÁ\n®ÄÅ ‰­„Ç!)Q\"C‡" [read-string "Validate command: " sgml-saved-validate-command sgml-validate-command " " buffer-file-name name file-name-nondirectory] 7)])