yatex
diff yatexlib.el @ 62:7fb74de5a4e8
*** empty log message ***
author | yuuji |
---|---|
date | Wed, 03 Dec 1997 10:37:48 +0000 |
parents | 3a7c0c2bf16d |
children | 36a48185b95a |
line diff
1.1 --- a/yatexlib.el Thu Feb 01 18:55:47 1996 +0000 1.2 +++ b/yatexlib.el Wed Dec 03 10:37:48 1997 +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)))