Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexlib.el @ 59:48ac97a6b6ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Call drawing tools ID completion (yahtml)
author yuuji
date Wed, 01 May 1996 15:35:40 +0000
parents 3a7c0c2bf16d
children 36a48185b95a
comparison
equal deleted inserted replaced
58:3a7c0c2bf16d 59:48ac97a6b6ce
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX library of general functions. 2 ;;; YaTeX library of general functions.
3 ;;; yatexlib.el 3 ;;; yatexlib.el
4 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] 4 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
5 ;;; Last modified Thu Feb 1 22:34:57 1996 on nsr 5 ;;; Last modified Fri Apr 5 17:56:43 1996 on supra
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;;;###autoload 8 ;;;###autoload
9 (defun YaTeX-search-active-forward (string cmntrx &optional bound err cnt func) 9 (defun YaTeX-search-active-forward (string cmntrx &optional bound err cnt func)
10 "Search STRING which is not commented out by CMNTRX. 10 "Search STRING which is not commented out by CMNTRX.
159 (cond 159 (cond
160 ((and YaTeX-emacs-19 (get-buffer-window buffer t)) 160 ((and YaTeX-emacs-19 (get-buffer-window buffer t))
161 nil) ;if found in other frame 161 nil) ;if found in other frame
162 (YaTeX-default-pop-window-height 162 (YaTeX-default-pop-window-height
163 (split-window-calculate-height YaTeX-default-pop-window-height) 163 (split-window-calculate-height YaTeX-default-pop-window-height)
164 (pop-to-buffer buffer) 164 ;;(pop-to-buffer buffer) ;damn! emacs-19.30
165 (select-window (next-window nil 1))
166 (switch-to-buffer (get-buffer-create buffer))
165 (or select (select-window window))) 167 (or select (select-window window)))
166 (t nil))) 168 (t nil)))
167 ))) 169 )))
168 ) 170 )
169 171
170 ;;;###autoload 172 ;;;###autoload
171 (defun split-window-calculate-height (height) 173 (defun split-window-calculate-height (height)
172 "Split current window wight specified HEIGHT. 174 "Split current window wight specified HEIGHT.
173 If HEIGHT is number, make new window that has HEIGHT lines. 175 If HEIGHT is number, make a new window that has HEIGHT lines.
174 If HEIGHT is string, make new window that occupy HEIGT % of screen height. 176 If HEIGHT is string, make a new window that occupies HEIGT % of screen height.
175 Otherwise split window conventionally." 177 Otherwise split window conventionally."
176 (if (one-window-p) 178 (if (one-window-p t)
177 (split-window 179 (split-window
178 (selected-window) 180 (selected-window)
179 (max 181 (max
180 (min 182 (min
181 (- (screen-height) 183 (- (screen-height)
182 (if (numberp YaTeX-default-pop-window-height) 184 (if (numberp height)
183 (+ YaTeX-default-pop-window-height 2) 185 (+ height 2)
184 (/ (* (screen-height) 186 (/ (* (screen-height)
185 (string-to-int YaTeX-default-pop-window-height)) 187 (string-to-int height))
186 100))) 188 100)))
187 (- (screen-height) window-min-height 1)) 189 (- (screen-height) window-min-height 1))
188 window-min-height))) 190 window-min-height)))
189 ) 191 )
190 192

yatex.org