1 ;;; -*- Emacs-Lisp -*-

2 ;;; Hooks for YaTeX

3

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

5 ;;; $B%U%!%$%k$KF~$l$F$/$@$5$$!#5/F0;~$K<+F0E*$K%m!<%I$7$^$9!#(B

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

11 ;Private definitions begins from here.

12

13 (define-key YaTeX-user-extensional-map "0"

14 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part")))

15 (define-key YaTeX-user-extensional-map "1"

16 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter")))

17 (define-key YaTeX-user-extensional-map "2"

18 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section")))

19 (define-key YaTeX-user-extensional-map "3"

20 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection")))

21 (define-key YaTeX-user-extensional-map "4"

22 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection")))

23 (define-key YaTeX-user-extensional-map "5"

24 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph")))

25 (define-key YaTeX-user-extensional-map "6"

26 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph")))

27 (define-key YaTeX-user-extensional-map "r"

28 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref")))

29 (define-key YaTeX-user-extensional-map "i"

30 '(lambda () (interactive) (YaTeX-make-singlecmd "item")))

31 (define-key YaTeX-user-extensional-map "\C-b"

32 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow")))

33 (define-key YaTeX-user-extensional-map "l"

34 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label")))

35 (define-key YaTeX-user-extensional-map "S"

36 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength")))

37 (define-key YaTeX-user-extensional-map "b"

38 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf")))

39

40

41 ;

42 ;;; End of yatexhks.el

43 (provide 'yatexhks)