Mercurial > hg > xemacs-beta

comparison lisp/window.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents aabb7f5b1c81
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
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 the window is the full width 296 ;; check to make sure that the window is the full width
297 ;; of the frame 297 ;; of the frame
298 (eq (nth 2 edges) 298 (window-leftmost-p window)
299 (frame-pixel-width)) 299 (window-rightmost-p window)
300 (zerop (nth 0 edges)) 300 (zerop (nth 0 edges))
301 ;; The whole buffer must be visible. 301 ;; The whole buffer must be visible.
302 (pos-visible-in-window-p (point-min) window) 302 (pos-visible-in-window-p (point-min) window)
303 ;; The frame must not be minibuffer-only. 303 ;; The frame must not be minibuffer-only.
304 (not (eq mini 'only))) 304 (not (eq mini 'only)))