yatex
annotate yahtml.el @ 34:c61405ef1bd1
Change the message of dictionary selection menu.
author | yuuji |
---|---|
date | Wed, 13 Jul 1994 16:11:27 +0000 |
parents | cd762e854337 |
children | 2d45e43fb35f |
rev | line source |
---|---|
yuuji@13 | 1 ;;; -*- Emacs-Lisp -*- |
yuuji@16 | 2 ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net.or.jp] |
yuuji@16 | 3 ;;; Last modified Wed May 4 05:31:29 1994 on 98fa |
yuuji@13 | 4 ;;; This is sample hack definition for HTML. |
yuuji@13 | 5 ;;; |
yuuji@13 | 6 ;;; [Purely tentative version] |
yuuji@13 | 7 ;;; $Id$ |
yuuji@13 | 8 |
yuuji@13 | 9 (require 'yatex) |
yuuji@13 | 10 (defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map)) |
yuuji@13 | 11 (defvar yahtml-mode-map nil |
yuuji@13 | 12 "Keymap used in yahtml-mode.") |
yuuji@13 | 13 (if yahtml-mode-map nil |
yuuji@13 | 14 (setq yahtml-mode-map (make-sparse-keymap)) |
yuuji@13 | 15 (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map)) |
yuuji@13 | 16 |
yuuji@13 | 17 (defun yahtml-mode () |
yuuji@13 | 18 (interactive) |
yuuji@13 | 19 (yatex-mode) |
yuuji@13 | 20 (setq major-mode 'yahtml-mode |
yuuji@13 | 21 mode-name "yahtml") |
yuuji@13 | 22 (make-local-variable 'YaTeX-ec) |
yuuji@13 | 23 (setq YaTeX-ec "") |
yuuji@13 | 24 (make-local-variable 'YaTeX-struct-begin) |
yuuji@13 | 25 (setq YaTeX-struct-begin "<%1>") |
yuuji@13 | 26 (make-local-variable 'YaTeX-struct-end) |
yuuji@13 | 27 (setq YaTeX-struct-end "</%1>") |
yuuji@13 | 28 (make-local-variable 'env-table) |
yuuji@13 | 29 (setq env-table |
yuuji@13 | 30 '(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL"))) |
yuuji@13 | 31 (make-local-variable 'YaTeX-prefix-map) |
yuuji@13 | 32 (setq YaTeX-prefix-map yahtml-prefix-map) |
yuuji@13 | 33 (use-local-map yahtml-mode-map) |
yuuji@13 | 34 (YaTeX-define-begend-key "bh" "HTML") |
yuuji@13 | 35 (YaTeX-define-begend-key "bH" "HEAD") |
yuuji@13 | 36 (YaTeX-define-begend-key "bt" "TITLE") |
yuuji@13 | 37 (YaTeX-define-begend-key "bb" "BODY") |
yuuji@13 | 38 (YaTeX-define-begend-key "bd" "DL") |
yuuji@13 | 39 (YaTeX-define-begend-key "b1" "H1") |
yuuji@13 | 40 (YaTeX-define-begend-key "b2" "H2") |
yuuji@13 | 41 (YaTeX-define-begend-key "b3" "H3") |
yuuji@13 | 42 ) |