1.1 --- a/yatexlib.el	Mon Sep 19 16:54:19 1994 +0000
     1.2 +++ b/yatexlib.el	Mon Oct 24 17:26:47 1994 +0000
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX library of general functions.
     1.5  ;;; yatexlib.el
     1.6  ;;; (c )1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.7 -;;; Last modified Fri Sep 16 01:50:34 1994 on figaro
     1.8 +;;; Last modified Mon Oct 10 22:14:14 1994 on VFR
     1.9  ;;; $Id$
    1.10  
    1.11  ;;;###autoload
    1.12 @@ -123,9 +123,25 @@
    1.13  that gives the maximum value by the FUNC.  FUNC should take an argument
    1.14  of its window object.  Non-nil for optional third argument SELECT selects
    1.15  that window."
    1.16 -  (or (and (get-buffer-window buffer)
    1.17 -	   (progn (if select (select-window (get-buffer-window buffer)))
    1.18 -		  t))
    1.19 +  (or (and (if YaTeX-emacs-19
    1.20 +	       (get-buffer-window buffer t)
    1.21 +	     (get-buffer-window buffer))
    1.22 +	   (progn
    1.23 +	     (if select
    1.24 +		 (cond
    1.25 +		  (YaTeX-emacs-19
    1.26 +		   (let ((frame (window-frame (get-buffer-window buffer t))))
    1.27 +		     (select-frame frame)
    1.28 +		     (focus-frame frame)
    1.29 +		     (set-mouse-position frame 0 0)
    1.30 +		     (raise-frame frame)
    1.31 +		     (select-window (get-buffer-window buffer))
    1.32 +		     (if (and (featurep 'windows)
    1.33 +			      (win:frame-window frame))
    1.34 +			 (win:adjust-window))))
    1.35 +		  (t
    1.36 +		   (select-window (get-buffer-window buffer)))))
    1.37 +	     t))
    1.38        (let ((window (selected-window))
    1.39  	    (wlist (YaTeX-window-list)) win w (x 0))
    1.40  	(cond
    1.41 @@ -147,6 +163,8 @@
    1.42  	  (or select (select-window window)))
    1.43  	 (t				;if one-window
    1.44  	  (cond
    1.45 +	   ((and YaTeX-emacs-19 (get-buffer-window buffer t))
    1.46 +	    nil)			;if found in other frame
    1.47  	   (YaTeX-default-pop-window-height
    1.48  	    (split-window
    1.49  	     (selected-window)
    1.50 @@ -182,7 +200,7 @@
    1.51  where ever it appears."
    1.52    (mapcar
    1.53     (function (lambda (key) (define-key keymap key newdef)))
    1.54 -   (where-is-internal olddef))
    1.55 +   (where-is-internal olddef keymap))
    1.56  )
    1.57  
    1.58  ;;;###autoload