Mercurial > hgrepos > hgweb.cgi > yatex
annotate yatexhks.el @ 66:dd4887f78a1f
GNU Emacs20 and XEmacs supported
author | yuuji |
---|---|
date | Tue, 16 Dec 1997 13:33:40 +0000 |
parents | b9f753846b6b |
children | 9b4354af748c |
rev | line source |
---|---|
23 | 1 ;;; -*- Emacs-Lisp -*- |
2 ;;; Hooks for YaTeX | |
3 | |
66 | 4 ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の |
5 ;;; ファイルに入れてください。起動時に自動的にロードします。 | |
23 | 6 |
7 ;;; All the private definitions for YaTeX can be stuffed into the file | |
8 ;;; named `yatexhks.el'. The file `yatexhks.el' will be automatically | |
9 ;;; loaded at the end of loading `yatex.el'. | |
10 | |
58
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
54
diff
changeset
|
11 ;Private definitions begin from here. |
23 | 12 |
61 | 13 ;;97/1/27 |
14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview) | |
15 ;;initial version | |
54 | 16 (define-key YaTeX-user-extensional-map "0" |
17 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part"))) | |
18 (define-key YaTeX-user-extensional-map "1" | |
19 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter"))) | |
20 (define-key YaTeX-user-extensional-map "2" | |
21 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section"))) | |
22 (define-key YaTeX-user-extensional-map "3" | |
23 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection"))) | |
24 (define-key YaTeX-user-extensional-map "4" | |
25 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection"))) | |
26 (define-key YaTeX-user-extensional-map "5" | |
27 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph"))) | |
28 (define-key YaTeX-user-extensional-map "6" | |
29 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph"))) | |
30 (define-key YaTeX-user-extensional-map "r" | |
31 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref"))) | |
32 (define-key YaTeX-user-extensional-map "i" | |
33 '(lambda () (interactive) (YaTeX-make-singlecmd "item"))) | |
34 (define-key YaTeX-user-extensional-map "\C-b" | |
35 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow"))) | |
36 (define-key YaTeX-user-extensional-map "l" | |
37 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label"))) | |
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
58
diff
changeset
|
38 (define-key YaTeX-user-extensional-map "f" |
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
58
diff
changeset
|
39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac"))) |
54 | 40 (define-key YaTeX-user-extensional-map "S" |
41 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength"))) | |
42 (define-key YaTeX-user-extensional-map "b" | |
43 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf"))) | |
44 | |
23 | 45 |
46 ; | |
47 ;;; End of yatexhks.el | |
48 (provide 'yatexhks) |