head 1.8; access; symbols RELEASE_4_4_0:1.5 RELEASE_4_3_0:1.5 RELEASE_4_2_0:1.4 RELEASE_4_1_1:1.3 RELEASE_4_1_0:1.3 RELEASE_3_5_0:1.3 RELEASE_4_0_0:1.3 RELEASE_3_4_0:1.2; locks; strict; comment @# @; 1.8 date 2001.12.24.17.20.37; author kuriyama; state dead; branches; next 1.7; 1.7 date 2001.11.12.01.46.22; author kuriyama; state Exp; branches; next 1.6; 1.6 date 2001.11.06.12.27.03; author kuriyama; state Exp; branches; next 1.5; 1.5 date 2000.12.22.17.54.39; author shige; state Exp; branches; next 1.4; 1.4 date 2000.10.27.15.50.27; author shige; state Exp; branches; next 1.3; 1.3 date 2000.02.09.13.26.40; author shige; state Exp; branches; next 1.2; 1.2 date 99.10.18.20.43.01; author kuriyama; state Exp; branches; next 1.1; 1.1 date 99.10.16.11.57.56; author shige; state Exp; branches; next ; desc @@ 1.8 log @Remove old port which is obsoleted by repocopy. Found by: will's commit @ text @;; -*- lisp -*- ;; ;; @@(#)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))) (autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t) (autoload 'xml-mode "psgml" "Major mode to edit XML files." t) (setq auto-mode-alist (append (list '("\\.s?html?\\'" . sgml-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" "") ("XHTML 1.0 Transitional" "") ("XHTML 1.0 Frameset" "") ("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) @ 1.7 log @o Use sgml-mode for *.html files instead of html-mode. o Turn on syntax highlighting by default. If you want to disable this, please add (setq sgml-set-face nil) after (require 'psgml-startup) line. @ text @@ 1.6 log @Add XHTML identifiers. @ text @d15 4 d72 41 @ 1.5 log @Fix load-path problem on emacs-19.34(and mule-19.34). PR: ports/21681 Submitted by: NIIMI Satoshi @ text @d1 1 d37 6 @ 1.4 log @Add HTML 4.01/DocBook V4.0/DocBook V4.1. @ text @d6 1 a6 1 (if (fboundp 'normal-top-level-add-subdirs-to-load-path) @ 1.3 log @Fix typo. Submitted by: Hiroki Sato @ text @d31 5 d42 4 @ 1.2 log @s/Transitioal/Transitional/ @ text @d36 1 a36 1 "") @ 1.1 log @Update to 1.2.0. @ text @d28 1 a28 1 "") @