1.1 --- a/yatexadd.el	Mon Sep 20 08:56:09 1993 +0000
     1.2 +++ b/yatexadd.el	Mon Oct 25 14:35:00 1993 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX add-in functions.
     1.5  ;;; yatexadd.el rev.5
     1.6  ;;; (c)1991-1993 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Sat Sep 18 04:13:41 1993 on 98fa
     1.8 +;;; Last modified Wed Oct  6 03:40:30 1993 on 98fa
     1.9  ;;; $Id$
    1.10  
    1.11  (provide 'yatexadd)
    1.12 @@ -73,6 +73,13 @@
    1.13  	  (YaTeX:read-coordinates "Initial position"))
    1.14  )
    1.15  
    1.16 +(defun YaTeX:equation ()
    1.17 +  (if (fboundp 'YaTeX-toggle-math-mode)
    1.18 +      (YaTeX-toggle-math-mode t))		;force math-mode ON.
    1.19 +)
    1.20 +(fset 'YaTeX:eqnarray 'YaTeX:equation)
    1.21 +(fset 'YaTeX:displaymath 'YaTeX:equation)
    1.22 +
    1.23  ;;;
    1.24  ;;Sample functions for section-type command.
    1.25  ;;;
    1.26 @@ -224,6 +231,8 @@
    1.27  	(goto-char (point-min))
    1.28  	(message "Collecting labels...")
    1.29  	(save-window-excursion
    1.30 +	  (YaTeX-showup-buffer
    1.31 +	   YaTeX-label-buffer (function (lambda (x) (window-width x))))
    1.32  	  (with-output-to-temp-buffer YaTeX-label-buffer
    1.33  	    (while (re-search-forward "\\label{\\([^}]+\\)}" nil t)
    1.34  	      (setq e0 (match-end 0) m1 (match-beginning 1) e1 (match-end 1))
    1.35 @@ -272,6 +281,8 @@
    1.36  (defun YaTeX-label-other ()
    1.37    (let ((lbuf "*YaTeX mode buffers*") (blist (buffer-list)) (lnum -1) buf rv
    1.38  	(ff "**find-file**"))
    1.39 +    (YaTeX-showup-buffer
    1.40 +     lbuf (function (lambda (x) 1)))	;;Select next window surely.
    1.41      (with-output-to-temp-buffer lbuf
    1.42        (while blist
    1.43  	(if (and (buffer-file-name (setq buf (car blist)))