;;;
;;; Hack to support <![ module.name [ ... ]]> idea
;;; $Id: fix-sgml.el,v 1.1 1997/05/26 14:11:39 connolly Exp $

(defun sgml-do-marked-section ()
  (let ((status nil))
    (while (progn (sgml-skip-ps)
		  (not (sgml-parse-char ?\[)))
      (push (sgml-check-name)
	    status))
    (cond
;;;;connolly@w3.org 1997-05-19
     ((sgml-lookup-entity (car status)
			  (sgml-dtd-parameters sgml-dtd-info))
      (sgml-set-markup-type 'ms-start))
      


     ((member "ignore" status)
      (sgml-skip-marked-section)
      (sgml-set-markup-type 'ignored))
     ((or (member "cdata" status)
	  (member "rcdata" status))
      (when sgml-signal-data-function
	(funcall sgml-signal-data-function))
      (let ((type (if (member "cdata" status) sgml-cdata sgml-rcdata)))
	(sgml-do-data type t)
      (sgml-set-markup-type type)))
     (t
      (sgml-set-markup-type 'ms-start)))))