;; define xml mode
(or (assoc "\\.xml$" auto-mode-alist)
(setq auto-mode-alist (cons '("\\.xml$" . sgml-xml-mode)
    auto-mode-alist)))

(defun sgml-xml-mode ()
"This version of xml mode is just a wrapper around sgml mode."
(interactive)
(sgml-mode)
(make-local-variable 'sgml-declaration)
(make-local-variable 'sgml-default-doctype-name)
(setq
    sgml-default-doctype-name    "xml"
    sgml-declaration             "-wxml /usr/share/sgml/xml.dcl"

    sgml-always-quote-attributes   t
    sgml-minimize-attributes       nil
    sgml-omittag                   t
    sgml-shorttag                  t
    )
)
;; sgml-mode default variables
(setq
    sgml-auto-activate-dtd         t
    sgml-auto-insert-required-elements t
    sgml-balanced-tag-edit         t
    sgml-indent-data               nil
    sgml-indent-step               nil
    sgml-insert-missing-element-comment nil
    sgml-live-element-indicator    nil
    ;sgml-validate-command       "onsgmls -s %s %s"
    sgml-custom-markup '(
    ("Insert DocType (SGML V4.2)" "<?xml version=\"1.0\" encoding=\"EUC-JP\"?>
<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.2//EN\">\n\r")
    ("Insert DocType (XML V4.2)" "<?xml version=\"1.0\" encoding=\"EUC-JP\"?>
<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook XML V4.2//EN\"
    \"/usr/share/sgml/docbook/xml-dtd-4.2-1.0-26/docbookx.dtd\">\n\r")
    )
)