--- a/yatexhks.el	Thu Feb 02 17:18:29 1995 +0000
+++ b/yatexhks.el	Mon Apr 24 14:42:53 1995 +0000
@@ -10,6 +10,33 @@
 
 ;Private definitions begins from here.
 
+(define-key YaTeX-user-extensional-map "0"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "part")))
+(define-key YaTeX-user-extensional-map "1"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "chapter")))
+(define-key YaTeX-user-extensional-map "2"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "section")))
+(define-key YaTeX-user-extensional-map "3"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsection")))
+(define-key YaTeX-user-extensional-map "4"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "subsubsection")))
+(define-key YaTeX-user-extensional-map "5"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "paragraph")))
+(define-key YaTeX-user-extensional-map "6"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "subparagraph")))
+(define-key YaTeX-user-extensional-map "r"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "ref")))
+(define-key YaTeX-user-extensional-map "i"
+  '(lambda () (interactive) (YaTeX-make-singlecmd "item")))
+(define-key YaTeX-user-extensional-map "\C-b"
+  '(lambda () (interactive) (YaTeX-make-singlecmd "leftarrow")))
+(define-key YaTeX-user-extensional-map "l"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "label")))
+(define-key YaTeX-user-extensional-map "S"
+  '(lambda () (interactive) (YaTeX-make-section nil nil nil "setlength")))
+(define-key YaTeX-user-extensional-map "b"
+  '(lambda () (interactive) (YaTeX-make-fontsize nil "bf")))
+
 
 ;
 ;;; End of yatexhks.el