1.1 --- a/yatexlib.el	Thu Feb 01 18:55:47 1996 +0000
     1.2 +++ b/yatexlib.el	Wed May 01 15:35:40 1996 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX library of general functions.
     1.5  ;;; yatexlib.el
     1.6  ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Thu Feb  1 22:34:57 1996 on nsr
     1.8 +;;; Last modified Fri Apr  5 17:56:43 1996 on supra
     1.9  ;;; $Id$
    1.10  
    1.11  ;;;###autoload
    1.12 @@ -161,7 +161,9 @@
    1.13  	    nil)			;if found in other frame
    1.14  	   (YaTeX-default-pop-window-height
    1.15  	    (split-window-calculate-height YaTeX-default-pop-window-height)
    1.16 -	    (pop-to-buffer buffer)
    1.17 +	    ;;(pop-to-buffer buffer)	;damn! emacs-19.30
    1.18 +	    (select-window (next-window nil 1))
    1.19 +	    (switch-to-buffer (get-buffer-create buffer))
    1.20  	    (or select (select-window window)))
    1.21  	   (t nil)))
    1.22  	 )))
    1.23 @@ -170,19 +172,19 @@
    1.24  ;;;###autoload
    1.25  (defun split-window-calculate-height (height)
    1.26    "Split current window wight specified HEIGHT.
    1.27 -If HEIGHT is number, make new window that has HEIGHT lines.
    1.28 -If HEIGHT is string, make new window that occupy HEIGT % of screen height.
    1.29 +If HEIGHT is number, make a new window that has HEIGHT lines.
    1.30 +If HEIGHT is string, make a new window that occupies HEIGT % of screen height.
    1.31  Otherwise split window conventionally."
    1.32 -  (if (one-window-p)
    1.33 +  (if (one-window-p t)
    1.34        (split-window
    1.35         (selected-window)
    1.36         (max
    1.37  	(min
    1.38  	 (- (screen-height)
    1.39 -	    (if (numberp YaTeX-default-pop-window-height)
    1.40 -		(+ YaTeX-default-pop-window-height 2)
    1.41 +	    (if (numberp height)
    1.42 +		(+ height 2)
    1.43  	      (/ (* (screen-height)
    1.44 -		    (string-to-int YaTeX-default-pop-window-height))
    1.45 +		    (string-to-int height))
    1.46  		 100)))
    1.47  	 (- (screen-height) window-min-height 1))
    1.48  	window-min-height)))