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

2 ;;; Hooks for YaTeX

3

4 ;;; 野鳥に関連する記述(たとえばアドイン関数)は yatexhks.el という名前の

5 ;;; ファイルに入れてください。起動時に自動的にロードします。

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 begin from here.

12

13 ;;97/1/27

14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)

15 ;;initial version

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")))

38 (define-key YaTeX-user-extensional-map "f"

39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac")))

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 (define-key YaTeX-user-extensional-map "I" 'YaTeX-browse-info)

45

46 (defun YaTeX-browse-info ()

47 "Browse YaTeX's info"

48 (interactive)

49 (require 'info)

50 (Info-goto-node (if YaTeX-japan "(yatexj)Top" "(yatexe)Top")))

51

52

53 ;

54 ;;; End of yatexhks.el

55 (provide 'yatexhks)