head 1.1; access; symbols; locks; strict; comment @# @; 1.1 date 2003.07.31.17.37.01; author shige; state Exp; branches; next ; desc @@ 1.1 log @Add elisp/emacsen ports in the ports tree @@ 2003/07/31 @ text @;; -*- lisp -*- ;; $FreeBSD$ ;; @@(#)psgml-startup.el -- psgml startup elisp file. ;; -- by shige@@FreeBSD.ORG ;; setup load-path (if (not (fboundp 'normal-top-level-add-subdirs-to-load-path)) (setq load-path (append '( "@@@@PREFIX@@@@/@@@@EMACS_LIBDIR@@@@/site-lisp/psgml" ) load-path))) (defalias 'sgml-mode 'psgml-mode) (defalias 'xml-mode 'pxml-mode) (autoload 'psgml-mode "psgml" "Major mode to edit SGML files." t) (autoload 'pxml-mode "psgml" "Major mode to edit XML files." t) (setq auto-mode-alist (append '( ("\\.s?html?\\'" . sgml-mode) ("\\.xml\\'" . xml-mode) ) auto-mode-alist)) (setq sgml-custom-dtd '(("HTML" "") ("HTML 2.0" "") ("HTML 2.0 Level 1" "") ("HTML 2.0 Level 2" "") ("HTML 2.0 Strict Level 1" "") ("HTML 2.0 Strict Level 2" "") ("HTML 3.2" "") ("HTML 4.0" "") ("HTML 4.0 Transitional" "") ("HTML 4.0 Frameset" "") ("HTML 4.01" "") ("HTML 4.01 Transitional" "") ("HTML 4.01 Frameset" "") ("XHTML 1.0 Strict" "\n") ("XHTML 1.0 Transitional" "\n") ("XHTML 1.0 Frameset" "\n") ("DocBook V2.4.1" "") ("DocBook V3.0" "") ("DocBook V3.1" "") ("DocBook V4.0" "") ("DocBook V4.1" "") ("LINUXDOC" "") ("LINUXDOC 1.0" "") ("LINUXDOC 1.1" "") ("Article" "") ("Book" "") ("Mathematics" "") ("Serial" "") )) (setq-default sgml-auto-activate-dtd t) (setq-default sgml-set-face t) (make-face 'sgml-comment-face) (make-face 'sgml-doctype-face) (make-face 'sgml-end-tag-face) (make-face 'sgml-entity-face) (make-face 'sgml-ignored-face) (make-face 'sgml-ms-end-face) (make-face 'sgml-ms-start-face) (make-face 'sgml-pi-face) (make-face 'sgml-sgml-face) (make-face 'sgml-short-ref-face) (make-face 'sgml-start-tag-face) (set-face-foreground 'sgml-comment-face "dark green") (set-face-foreground 'sgml-doctype-face "maroon") (set-face-foreground 'sgml-end-tag-face "SlateBlue") (set-face-foreground 'sgml-entity-face "OrangeRed4") (set-face-foreground 'sgml-ignored-face "maroon") (set-face-background 'sgml-ignored-face "gray90") (set-face-foreground 'sgml-ms-end-face "maroon") (set-face-foreground 'sgml-ms-start-face "maroon") (set-face-foreground 'sgml-pi-face "maroon") (set-face-foreground 'sgml-sgml-face "maroon") (set-face-foreground 'sgml-short-ref-face "goldenrod") (set-face-foreground 'sgml-start-tag-face "SlateBlue") (setq-default sgml-markup-faces '((comment . sgml-comment-face) (doctype . sgml-doctype-face) (end-tag . sgml-end-tag-face) (entity . sgml-entity-face) (ignored . sgml-ignored-face) (ms-end . sgml-ms-end-face) (ms-start . sgml-ms-start-face) (pi . sgml-pi-face) (sgml . sgml-sgml-face) (short-ref . sgml-short-ref-face) (start-tag . sgml-start-tag-face))) (provide 'psgml-startup) @