rev |
line source |
yuuji@23
|
1 ;;; -*- Emacs-Lisp -*-
|
yuuji@23
|
2 ;;; Hooks for YaTeX
|
yuuji@23
|
3
|
yuuji@23
|
4 ;;; $BLnD;$K4XO"$9$k5-=R(B($B$?$H$($P%"%I%$%s4X?t(B)$B$O(B yatexhks.el $B$H$$$&L>A0$N(B
|
yuuji@23
|
5 ;;; $B%U%!%$%k$KF~$l$F$/$@$5$$!#5/F0;~$K<+F0E*$K%m!<%I$7$^$9!#(B
|
yuuji@23
|
6
|
yuuji@23
|
7 ;;; All the private definitions for YaTeX can be stuffed into the file
|
yuuji@23
|
8 ;;; named `yatexhks.el'. The file `yatexhks.el' will be automatically
|
yuuji@23
|
9 ;;; loaded at the end of loading `yatex.el'.
|
yuuji@23
|
10
|
yuuji@23
|
11 ;Private definitions begins from here.
|
yuuji@23
|
12
|
yuuji@54
|
13 (define-key YaTeX-user-extensional-map "0"
|
yuuji@54
|
14 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part")))
|
yuuji@54
|
15 (define-key YaTeX-user-extensional-map "1"
|
yuuji@54
|
16 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter")))
|
yuuji@54
|
17 (define-key YaTeX-user-extensional-map "2"
|
yuuji@54
|
18 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section")))
|
yuuji@54
|
19 (define-key YaTeX-user-extensional-map "3"
|
yuuji@54
|
20 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection")))
|
yuuji@54
|
21 (define-key YaTeX-user-extensional-map "4"
|
yuuji@54
|
22 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection")))
|
yuuji@54
|
23 (define-key YaTeX-user-extensional-map "5"
|
yuuji@54
|
24 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph")))
|
yuuji@54
|
25 (define-key YaTeX-user-extensional-map "6"
|
yuuji@54
|
26 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph")))
|
yuuji@54
|
27 (define-key YaTeX-user-extensional-map "r"
|
yuuji@54
|
28 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref")))
|
yuuji@54
|
29 (define-key YaTeX-user-extensional-map "i"
|
yuuji@54
|
30 '(lambda () (interactive) (YaTeX-make-singlecmd "item")))
|
yuuji@54
|
31 (define-key YaTeX-user-extensional-map "\C-b"
|
yuuji@54
|
32 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow")))
|
yuuji@54
|
33 (define-key YaTeX-user-extensional-map "l"
|
yuuji@54
|
34 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label")))
|
yuuji@54
|
35 (define-key YaTeX-user-extensional-map "S"
|
yuuji@54
|
36 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength")))
|
yuuji@54
|
37 (define-key YaTeX-user-extensional-map "b"
|
yuuji@54
|
38 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf")))
|
yuuji@54
|
39
|
yuuji@23
|
40
|
yuuji@23
|
41 ;
|
yuuji@23
|
42 ;;; End of yatexhks.el
|
yuuji@23
|
43 (provide 'yatexhks)
|