-;;;----- SGML hacking -------------------------------------------------------
-
-(defun mdw-sgml-mode ()
- (interactive)
- (sgml-mode)
- (mdw-standard-fill-prefix "")
- (make-variable-buffer-local 'sgml-delimiters)
- (setq sgml-delimiters
- '("AND" "&" "COM" "--" "CRO" "&#" "DSC" "]" "DSO" "[" "DTGC" "]"
- "DTGO" "[" "ERO" "&" "ETAGO" ":e" "GRPC" ")" "GRPO" "(" "LIT" "\""
- "LITA" "'" "MDC" ">" "MDO" "<!" "MINUS" "-" "MSC" "]]" "NESTC" "{"
- "NET" "}" "OPT" "?" "OR" "|" "PERO" "%" "PIC" ">" "PIO" "<?"
- "PLUS" "+" "REFC" "." "REP" "*" "RNI" "#" "SEQ" "," "STAGO" ":"
- "TAGC" "." "VI" "=" "MS-START" "<![" "MS-END" "]]>"
- "XML-ECOM" "-->" "XML-PIC" "?>" "XML-SCOM" "<!--" "XML-TAGCE" "/>"
- "NULL" ""))
- (setq major-mode 'mdw-sgml-mode)
- (setq mode-name "[mdw] SGML")
- (run-hooks 'mdw-sgml-mode-hook))
-