yatex

annotate yatexhks.el @ 61:b9f753846b6b

Bug fix release
author yuuji
date Mon, 07 Apr 1997 20:07:48 +0000
parents 9e08ed569d80
children dd4887f78a1f
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@58 11 ;Private definitions begin from here.
yuuji@23 12
yuuji@61 13 ;;97/1/27
yuuji@61 14 (define-key YaTeX-user-extensional-map "v" 'YaTeX-section-overview)
yuuji@61 15 ;;initial version
yuuji@54 16 (define-key YaTeX-user-extensional-map "0"
yuuji@54 17 '(lambda () (interactive) (YaTeX-make-section nil nil nil "part")))
yuuji@54 18 (define-key YaTeX-user-extensional-map "1"
yuuji@54 19 '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter")))
yuuji@54 20 (define-key YaTeX-user-extensional-map "2"
yuuji@54 21 '(lambda () (interactive) (YaTeX-make-section nil nil nil "section")))
yuuji@54 22 (define-key YaTeX-user-extensional-map "3"
yuuji@54 23 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection")))
yuuji@54 24 (define-key YaTeX-user-extensional-map "4"
yuuji@54 25 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection")))
yuuji@54 26 (define-key YaTeX-user-extensional-map "5"
yuuji@54 27 '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph")))
yuuji@54 28 (define-key YaTeX-user-extensional-map "6"
yuuji@54 29 '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph")))
yuuji@54 30 (define-key YaTeX-user-extensional-map "r"
yuuji@54 31 '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref")))
yuuji@54 32 (define-key YaTeX-user-extensional-map "i"
yuuji@54 33 '(lambda () (interactive) (YaTeX-make-singlecmd "item")))
yuuji@54 34 (define-key YaTeX-user-extensional-map "\C-b"
yuuji@54 35 '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow")))
yuuji@54 36 (define-key YaTeX-user-extensional-map "l"
yuuji@54 37 '(lambda () (interactive) (YaTeX-make-section nil nil nil "label")))
yuuji@60 38 (define-key YaTeX-user-extensional-map "f"
yuuji@60 39 '(lambda () (interactive) (YaTeX-make-section nil nil nil "frac")))
yuuji@54 40 (define-key YaTeX-user-extensional-map "S"
yuuji@54 41 '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength")))
yuuji@54 42 (define-key YaTeX-user-extensional-map "b"
yuuji@54 43 '(lambda () (interactive) (YaTeX-make-fontsize nil "bf")))
yuuji@54 44
yuuji@23 45
yuuji@23 46 ;
yuuji@23 47 ;;; End of yatexhks.el
yuuji@23 48 (provide 'yatexhks)