Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-out.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children ecf6ba7b0a10
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
260 ;; next-vertical-window instead. 260 ;; next-vertical-window instead.
261 (defun ilisp-find-lower-window (window) 261 (defun ilisp-find-lower-window (window)
262 "Find the window directly below us, if any. This is probably the 262 "Find the window directly below us, if any. This is probably the
263 window from which enlarge-window would steal lines." 263 window from which enlarge-window would steal lines."
264 (if (or (not (string-match "XEmacs" emacs-version)) 264 (if (or (not (string-match "XEmacs" emacs-version))
265 (< emacs-minor-version 12)) 265 (and (= emacs-major-version 19)
266 (< emacs-minor-version 12)))
266 (let* ((bottom (nth 3 (window-edges window))) 267 (let* ((bottom (nth 3 (window-edges window)))
267 (window* nil) 268 (window* nil)
268 (win window)) 269 (win window))
269 (while (not (eq (setq win (next-window win 'no)) 270 (while (not (eq (setq win (next-window win 'no))
270 window)) 271 window))
277 278
278 ;; XEmacs change -- There is now a primitive to do this. 279 ;; XEmacs change -- There is now a primitive to do this.
279 (defun ilisp-find-top-left-most-window () 280 (defun ilisp-find-top-left-most-window ()
280 "Return the leftmost topmost window on the current screen." 281 "Return the leftmost topmost window on the current screen."
281 (if (or (not (string-match "XEmacs" emacs-version)) 282 (if (or (not (string-match "XEmacs" emacs-version))
282 (< emacs-minor-version 12)) 283 (and (= emacs-major-version 19)
284 (< emacs-minor-version 12)))
283 (let* ((window* (selected-window)) 285 (let* ((window* (selected-window))
284 (edges* (window-edges window*)) 286 (edges* (window-edges window*))
285 (win nil) 287 (win nil)
286 (edges nil) 288 (edges nil)
287 (start-window window*)) 289 (start-window window*))