annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
1 ;;; -*- Emacs-Lisp -*-
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
2 ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net]
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
3 ;;; Last modified Sat Jan 29 16:58:00 1994 on gloria
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
4 ;;; This is sample hack definition for HTML.
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
5 ;;;
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
6 ;;; [Purely tentative version]
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
7 ;;; $Id$
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
8
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
9 (require 'yatex)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
10 (defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map))
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
11 (defvar yahtml-mode-map nil
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
12 "Keymap used in yahtml-mode.")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
13 (if yahtml-mode-map nil
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
14 (setq yahtml-mode-map (make-sparse-keymap))
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
15 (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map))
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
16
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
17 (defun yahtml-mode ()
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
18 (interactive)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
19 (yatex-mode)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
20 (setq major-mode 'yahtml-mode
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
21 mode-name "yahtml")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
22 (make-local-variable 'YaTeX-ec)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
23 (setq YaTeX-ec "")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
24 (make-local-variable 'YaTeX-struct-begin)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
25 (setq YaTeX-struct-begin "<%1>")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
26 (make-local-variable 'YaTeX-struct-end)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
27 (setq YaTeX-struct-end "</%1>")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
28 (make-local-variable 'env-table)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
29 (setq env-table
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
30 '(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL")))
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
31 (make-local-variable 'YaTeX-prefix-map)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
32 (setq YaTeX-prefix-map yahtml-prefix-map)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
33 (use-local-map yahtml-mode-map)
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
34 (YaTeX-define-begend-key "bh" "HTML")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
35 (YaTeX-define-begend-key "bH" "HEAD")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
36 (YaTeX-define-begend-key "bt" "TITLE")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
37 (YaTeX-define-begend-key "bb" "BODY")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
38 (YaTeX-define-begend-key "bd" "DL")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
39 (YaTeX-define-begend-key "b1" "H1")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
40 (YaTeX-define-begend-key "b2" "H2")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
41 (YaTeX-define-begend-key "b3" "H3")
eafae54794a0 Show message at comment-region on begin/end mode.
yuuji
parents:
diff changeset
42 )

yatex.org