(if (not (boundp 'visited-svnbook-el))
(progn
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)))
(setq visited-svnbook-el t)
(xml-mode)
(hack-local-variables)
(defun sgml-emdash ()
"Insert ISO entity reference for em dash."
(interactive)
(insert "—"))
(define-key sgml-mode-map "_" 'sgml-emdash)
(defun svn-htmlegalize-region (b e)
"Just replaces < and > for now."
(interactive "r")
(save-excursion
(let ((em (copy-marker e)))
(goto-char b)
(while (search-forward "<" em t)
(replace-match "<" nil t))
(goto-char b)
(while (search-forward ">" em t)
(replace-match ">" nil t))
)))
(setq sgml-omittag-transparent t
sgml-trace-entity-lookup nil
sgml-live-element-indicator t
sgml-xml-validate-command "SP_CHARSET_FIXED=YES SP_ENCODING=XML nsgmls -wxml -mdeclaration/xml.soc -ges %s %s"
sgml-validate-command "SP_CHARSET_FIXED=YES SP_ENCODING=XML nsgmls -wxml -mdeclaration/xml.soc -ges %s %s"
sgml-set-face t
sgml-mode-hook (quote (auto-fill-mode))
sgml-catalog-files (append sgml-catalog-files '("/usr/local/prod/sgml/dblite/catalog"))
sgml-auto-activate-dtd t)
(message "loaded svnbook.el")