Mercurial > hg > xemacs-beta
comparison lisp/window.el @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:20:41 +0200 |
| parents | 2f8bb876ab1d |
| children |
comparison
equal
deleted
inserted
replaced
| 411:12e008d41344 | 412:697ef44129c6 |
|---|---|
| 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 (window-leftmost-p window) | 298 (eq (nth 2 edges) |
| 299 (window-rightmost-p window) | 299 (frame-pixel-width)) |
| 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))) |
| 349 (walk-windows (lambda (win) | 349 (walk-windows (lambda (win) |
| 350 (push win wins)) | 350 (push win wins)) |
| 351 minibuf all-frames device) | 351 minibuf all-frames device) |
| 352 wins)) | 352 wins)) |
| 353 | 353 |
| 354 | |
| 354 ;;; window.el ends here | 355 ;;; window.el ends here |