aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-06-01 00:54:52 +0000
committerRichard M. Stallman1993-06-01 00:54:52 +0000
commit1216975440ddcdc7967efbef7ea7051e67906b54 (patch)
tree2ea9ffb510e89f01442a48df159ff0d7904508c7
parent2ed56345db4a53cef86ad79107f6c3c5d1f59e92 (diff)
downloademacs-1216975440ddcdc7967efbef7ea7051e67906b54.tar.gz
emacs-1216975440ddcdc7967efbef7ea7051e67906b54.zip
(count-windows): PROC argument of walk-windows takes an argument.
-rw-r--r--lisp/window.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/window.el b/lisp/window.el
index 621e0706efa..a69c20018d7 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1,4 +1,4 @@
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
@@ -27,7 +27,7 @@
27Optional arg NO-MINI non-nil means don't count the minibuffer 27Optional arg NO-MINI non-nil means don't count the minibuffer
28even if it is active." 28even 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))