--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/yatexadd.el	Mon Feb 22 11:04:53 1993 +0000
@@ -0,0 +1,59 @@
+;;; -*- Emacs-Lisp -*-
+;;; YaTeX add in functions.
+;;; yatexadd.el rev.2
+;;; (c)1991-1993 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
+;;; Last modified Fri Feb  5 09:36:06 1993 on gloria
+
+(provide 'yatexadd)
+
+;;;
+;;Sample functions for LaTeX environment.
+;;;
+(defvar YaTeX:tabular-default-rule
+  "@{\\vrule width 1pt\\ }c|c|c@{\\ \\vrule width 1pt}"
+  "*Your favorite default rule format."
+)
+(defun YaTeX:tabular ()
+  "YaTeX add in function for tabular environment."
+  (let (bars (rule "") (j 0) loc)
+    (setq bars (string-to-int (read-string "Number of `|': ")))
+    (if (> bars 0)
+	(while (< j bars) (setq rule (concat rule "|")) (setq j (1+ j)))
+      (setq rule YaTeX:tabular-default-rule))
+    (setq rule (read-string "rule format: " rule))
+
+    (insert (format "{%s}" rule))
+    (message ""))
+)
+
+(defun YaTeX:table ()
+  (let ((pos ""))
+    (message "Position []:")
+    (while (not (string-match
+		 (setq loc (read-key-sequence (format "Position [%s]: " pos)))
+		 "\r\^g\n"))
+      (cond
+       ((string-match loc "htbp")
+	(if (not (string-match loc pos))
+	    (setq pos (concat pos loc))))
+       ((and (string-match loc "\C-h\C-?") (> (length pos) 0))
+	(setq pos (substring pos 0 (1- (length pos)))))
+       (t
+	(ding)
+	(message "Please input one of `htbp'.")
+	(sit-for 3))))
+    (if (string= pos "") nil
+      (insert "[" pos "]")))
+)
+
+(defun YaTeX:description ()
+  "Truly poor service:-)"
+  (setq single-command "item[]")
+)
+
+(defun YaTeX:itemize ()
+  "It's also poor service."
+  (setq single-command "item")
+)
+
+(fset 'YaTeX:enumerate 'YaTeX:itemize)