1.1 --- a/yatexmth.el	Tue Dec 16 13:28:38 1997 +0000
     1.2 +++ b/yatexmth.el	Mon Oct 26 12:05:32 1998 +0000
     1.3 @@ -1,8 +1,8 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; YaTeX math-mode-specific functions.
     1.6  ;;; yatexmth.el
     1.7 -;;; (c )1993-1997 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
     1.8 -;;; Last modified Tue Nov 25 12:33:05 1997 on firestorm
     1.9 +;;; (c )1993-1998 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
    1.10 +;;; Last modified Wed Sep 30 21:26:29 1998 on firestorm
    1.11  ;;; $Id$
    1.12  
    1.13  ;;; [Customization guide]
    1.14 @@ -124,6 +124,7 @@
    1.15     ("!"		"neg"		("--+\n  |" YaTeX-image-neg))
    1.16     ("oo"	"infty"		("oo"		"��"))
    1.17     ("\\"	"backslash"	("\\"		"�_"))
    1.18 +   ("..."	"cdots"		("..."		"�c"))
    1.19  
    1.20     ;;binary operators
    1.21     ("+-"	"pm"		("+\n-" "�}"))
    1.22 @@ -232,12 +233,36 @@
    1.23     ;;left and right
    1.24     ("left"	"left"		"(leftmark)")
    1.25     ("right"	"right"		"(rightmark)")
    1.26 -   ;other marks
    1.27 +   ;;accent marks
    1.28 +   ("tilde"	"tilde"		"~\n?")
    1.29 +   ("T"		"tilde"		"~\n?")
    1.30 +   ("wtilde"	"widetilde"	"~\n?")
    1.31 +   ("hat"	"hat"		"^\n?")
    1.32 +   ("what"	"widehat"	"/\\\n??")
    1.33 +   ("w^"	"widehat"	"/\\\n?")
    1.34 +   ("check"	"check"		"v\n?")
    1.35 +   ("bar"	"bar"		"_\n?")
    1.36 +   ("overline"	"overline"	"_\n?")
    1.37 +   ("wbar"	"overline"	"--\n??")
    1.38 +   ("dot"	"dot"		".\n?")
    1.39 +   ("ddot"	"ddot"		"..\n??")
    1.40 +   ("vec"	"vec"		("->\n??" "��\n??"))
    1.41 +   ("~>"	"overrightarrow" ("-->\nAB" "��\nAB"))
    1.42 +   ("VEC"	"overrightarrow" ("-->\nAB" "��\nAB"))
    1.43 +   ;;rage-aware stuffs
    1.44 +   ("prod"	"prod"		("-+--+-\n |  |" "��"))
    1.45 +   ("CUP"	"bigcup"	"|~~|\n|  |\n|  |")
    1.46 +   ("union"	"bigcup"	"|~~|\n|  |\n|  |")
    1.47 +   ("CAP"	"bigcap"	"|  |\n|  |\n|__|")
    1.48 +   ("isc"	"bigcap"	"|  |\n|  |\n|__|")
    1.49 +   ("O+"	"bigoplus"	"/~~~\\\n| + |\n\\___/")
    1.50 +   ("Ox"	"bigotimes"	"/~~~\\\n| X |\n\\___/")
    1.51 +   ;;other marks
    1.52     ("Z"		"aleph"		"|\\|")
    1.53     ("|\\|"	"aleph"		"|\\|")
    1.54     ("h-"	"hbar"		"_\nh")
    1.55 -   ("i"		"imath"		"i")
    1.56 -   ("j"		"jmath"		"j")
    1.57 + ;  ("i"		"imath"		"i") ;These chars are appeared only
    1.58 + ;  ("j"		"jmath"		"j") ;as section-type arguments
    1.59     ("l"		"ell"		"l")
    1.60     ("wp"	"wp"		"???")
    1.61     ("R"		"Re"		")R")
    1.62 @@ -674,31 +699,25 @@
    1.63  			 )
    1.64  		nil)
    1.65  	      )))
    1.66 +    (delete-region beg (point))
    1.67      (cond
    1.68 -     ((eq result t)
    1.69 -      (setq YaTeX-current-completion-type 'maketitle)
    1.70 -
    1.71 -      ;;;(sit-for 1)
    1.72 -      (setq unread-command-char last-char)
    1.73 -      (insert (YaTeX-addin single-command)))
    1.74 +     ((memq result '(t select))
    1.75 +      (if (eq result t)
    1.76 +	  (setq unread-command-char last-char)
    1.77 +	(message "Done."))
    1.78 +      (if (assoc single-command section-table)
    1.79 +	  (YaTeX-make-section nil nil nil single-command)
    1.80 +	(setq YaTeX-current-completion-type 'maketitle)
    1.81 +	(YaTeX-make-singlecmd single-command)))
    1.82       ((eq result 'abort)
    1.83 -      (delete-region beg (point))
    1.84        (message "Abort."))
    1.85       ((eq result 'escape)
    1.86 -      (delete-region beg (point))
    1.87        (call-interactively (global-key-binding this-key)))
    1.88 -     ((eq result 'select)
    1.89 -      (message "Done.")
    1.90 -      (setq YaTeX-current-completion-type 'maketitle)
    1.91 -      (insert (YaTeX-addin single-command)))
    1.92       ((eq result 'exit)
    1.93 -      (delete-region beg (point))
    1.94        (YaTeX-toggle-math-mode))
    1.95       ((eq result 'menu)
    1.96 -      (delete-region beg (point))
    1.97        (setq key (concat "^" (regexp-quote (substring key 0 -1))))
    1.98 -      (insert (YaTeX-math-show-menu key)))))
    1.99 -)
   1.100 +      (insert (YaTeX-math-show-menu key))))))
   1.101  
   1.102  ;; ----- Change image completion types -----
   1.103  (defun YaTeX-math-member-p (item)