Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-out.el @ 6:27bc7f280385 r19-15b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b4
author cvs
date Mon, 13 Aug 2007 08:47:15 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
5:49b78a777eb4 6:27bc7f280385
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*))