Mercurial > emacs
comparison lisp/window.el @ 773:9c89fd7ddd41
*** empty log message ***
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Tue, 14 Jul 1992 19:42:01 +0000 |
parents | e4253da532fb |
children | c2dbf1fe0506 |
comparison
equal
deleted
inserted
replaced
772:2b5af16c9af3 | 773:9c89fd7ddd41 |
---|---|
1 ;;; windows.el --- GNU Emacs window commands aside from those written in C. | 1 ;;; windows.el --- GNU Emacs window commands aside from those written in C. |
2 | |
3 ;; Maintainer: FSF | |
4 ;; Last-Modified: 21 Dec 1987 | |
5 | |
2 ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc. | 6 ;;; Copyright (C) 1985, 1989, 1992 Free Software Foundation, Inc. |
3 | 7 |
4 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
5 | 9 |
6 ;; GNU Emacs is free software; you can redistribute it and/or modify | 10 ;; GNU Emacs is free software; you can redistribute it and/or modify |
15 | 19 |
16 ;; You should have received a copy of the GNU General Public License | 20 ;; You should have received a copy of the GNU General Public License |
17 ;; along with GNU Emacs; see the file COPYING. If not, write to | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to |
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
19 | 23 |
24 ;;; Code: | |
20 | 25 |
21 (defun count-windows (&optional minibuf) | 26 (defun count-windows (&optional minibuf) |
22 "Returns the number of visible windows. | 27 "Returns the number of visible windows. |
23 Optional arg NO-MINI non-nil means don't count the minibuffer | 28 Optional arg NO-MINI non-nil means don't count the minibuffer |
24 even if it is active." | 29 even if it is active." |