Mercurial > emacs
comparison lisp/window.el @ 3375:13ddc81f0b43
(count-windows): PROC argument of walk-windows takes an argument.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 01 Jun 1993 00:54:52 +0000 |
parents | ce8aa0ba8b08 |
children | dc73f3152d2f |
comparison
equal
deleted
inserted
replaced
3374:8e39495c5be4 | 3375:13ddc81f0b43 |
---|---|
1 ;;; windows.el --- GNU Emacs window commands aside from those written in C. | 1 ;;; window.el --- GNU Emacs window commands aside from those written in C. |
2 | 2 |
3 ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc. | 3 ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
6 | 6 |
25 (defun count-windows (&optional minibuf) | 25 (defun count-windows (&optional minibuf) |
26 "Returns the number of visible windows. | 26 "Returns the number of visible windows. |
27 Optional arg NO-MINI non-nil means don't count the minibuffer | 27 Optional arg NO-MINI non-nil means don't count the minibuffer |
28 even if it is active." | 28 even if it is active." |
29 (let ((count 0)) | 29 (let ((count 0)) |
30 (walk-windows (function (lambda () | 30 (walk-windows (function (lambda (w) |
31 (setq count (+ count 1)))) | 31 (setq count (+ count 1)))) |
32 minibuf) | 32 minibuf) |
33 count)) | 33 count)) |
34 | 34 |
35 (defun balance-windows () | 35 (defun balance-windows () |