Mercurial > emacs

comparison lisp/window.el @ 3375:13ddc81f0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ()