Mercurial > hg > xemacs-beta
diff lisp/window.el @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | 2c611d1463a6 |
children | aabb7f5b1c81 |
line wrap: on
line diff
--- a/lisp/window.el Mon Aug 13 10:27:41 2007 +0200 +++ b/lisp/window.el Mon Aug 13 10:28:48 2007 +0200 @@ -19,7 +19,7 @@ ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the +;; along with XEmacs; see the file COPYING. If not, write to the ;; Free Software Foundation, 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. @@ -34,13 +34,13 @@ ;;;; Window tree functions. (defun one-window-p (&optional nomini all-frames device) - "Returns non-nil if the selected window is the only window (in its frame). + "Return non-nil if the selected window is the only window (in its frame). Optional arg NOMINI non-nil means don't count the minibuffer even if it is active. The optional arg ALL-FRAMES t means count windows on all frames. If it is `visible', count windows on all visible frames. -ALL-FRAMES nil or omitted means count only the selected frame, +ALL-FRAMES nil or omitted means count only the selected frame, plus the minibuffer it uses (which may be on another frame). ALL-FRAMES = 0 means count windows on all visible and iconified frames. If ALL-FRAMES is any other value, count only the selected frame. @@ -87,7 +87,7 @@ ;; If we start from the minibuffer window, don't fail to come back to it. (if (window-minibuffer-p (selected-window)) (setq minibuf t)) - ;; Note that, like next-window & previous-window, this behaves a little + ;; Note that, like next-window & previous-window, this behaves a little ;; strangely if the selected window is on an invisible frame: it hits ;; some of the windows on that frame, and all windows on visible frames. (let* ((walk-windows-start (selected-window)) @@ -129,7 +129,7 @@ (list 'select-window 'save-selected-window-window))))) (defun count-windows (&optional minibuf) - "Returns the number of visible windows. + "Return the number of visible windows. Optional arg MINIBUF non-nil means count the minibuffer even if it is inactive." (let ((count 0)) @@ -139,7 +139,7 @@ count)) (defun balance-windows () - "Makes all visible windows the same height (approximately)." + "Make all visible windows the same height (approximately)." (interactive) (let ((count -1) levels newsizes size) ;FSFmacs