Mercurial > hg > xemacs-beta

comparison lisp/window.el @ 388:aabb7f5b1c81 r21-2-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-9
author cvs
date Mon, 13 Aug 2007 11:09:42 +0200
parents c5d627a313b1
children 74fd4e045ea6
comparison
equal deleted inserted replaced
387:f892a9d0bb8d 388:aabb7f5b1c81
291 (if (and (< 1 (let ((frame (selected-frame))) 291 (if (and (< 1 (let ((frame (selected-frame)))
292 (select-frame (window-frame window)) 292 (select-frame (window-frame window))
293 (unwind-protect 293 (unwind-protect
294 (count-windows) 294 (count-windows)
295 (select-frame frame)))) 295 (select-frame frame))))
296 ;; check to make sure that we don't have horizontally 296 ;; check to make sure that the window is the full width
297 ;; split windows 297 ;; of the frame
298 (eq (frame-highest-window (window-frame window) 0) 298 (eq (nth 2 edges)
299 (frame-highest-window (window-frame window) -1)) 299 (frame-pixel-width))
300 (zerop (nth 0 edges))
301 ;; The whole buffer must be visible.
300 (pos-visible-in-window-p (point-min) window) 302 (pos-visible-in-window-p (point-min) window)
301 (not (eq mini 'only)) 303 ;; The frame must not be minibuffer-only.
302 (or (not mini) (eq mini t) 304 (not (eq mini 'only)))
303 (< (nth 3 edges)
304 (nth 1 (window-pixel-edges mini)))
305 (> (nth 1 edges)
306 0)))
307 (progn 305 (progn
308 (save-window-excursion 306 (save-window-excursion
309 (goto-char (point-min)) 307 (goto-char (point-min))
310 (while (and (window-live-p window) 308 (while (and (window-live-p window)
311 (pos-visible-in-window-p test-pos window)) 309 (pos-visible-in-window-p test-pos window))