;;; -*- Emacs-Lisp -*- ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net.or.jp] ;;; Last modified Wed May 4 05:31:29 1994 on 98fa ;;; This is sample hack definition for HTML. ;;; ;;; [Purely tentative version] ;;; $Id$ (require 'yatex) (defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map)) (defvar yahtml-mode-map nil "Keymap used in yahtml-mode.") (if yahtml-mode-map nil (setq yahtml-mode-map (make-sparse-keymap)) (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map)) (defun yahtml-mode () (interactive) (yatex-mode) (setq major-mode 'yahtml-mode mode-name "yahtml") (make-local-variable 'YaTeX-ec) (setq YaTeX-ec "") (make-local-variable 'YaTeX-struct-begin) (setq YaTeX-struct-begin "<%1>") (make-local-variable 'YaTeX-struct-end) (setq YaTeX-struct-end "</%1>") (make-local-variable 'env-table) (setq env-table '(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL"))) (make-local-variable 'YaTeX-prefix-map) (setq YaTeX-prefix-map yahtml-prefix-map) (use-local-map yahtml-mode-map) (YaTeX-define-begend-key "bh" "HTML") (YaTeX-define-begend-key "bH" "HEAD") (YaTeX-define-begend-key "bt" "TITLE") (YaTeX-define-begend-key "bb" "BODY") (YaTeX-define-begend-key "bd" "DL") (YaTeX-define-begend-key "b1" "H1") (YaTeX-define-begend-key "b2" "H2") (YaTeX-define-begend-key "b3" "H3") )