Mercurial > hgrepos > hgweb.cgi > yatex
diff yahtml.el @ 13:eafae54794a0
Show message at comment-region on begin/end mode.
Greek letters completion in yatexmth.
YaTeX-mark environment and YaTeX-%-menu added.
Erase cursor at the execution of dviout(DOS).
Enable recursive completion at section-type completion.
author | yuuji |
---|---|
date | Sat, 29 Jan 1994 07:59:59 +0000 |
parents | |
children | cd762e854337 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/yahtml.el Sat Jan 29 07:59:59 1994 +0000 @@ -0,0 +1,42 @@ +;;; -*- Emacs-Lisp -*- +;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net] +;;; Last modified Sat Jan 29 16:58:00 1994 on gloria +;;; 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") +)