From a0e3f9b8f62331e7608453d08ed3564bf65eaf17 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 21 Feb 2000 19:45:13 +0000 Subject: [PATCH] (next-window): Don't redefine with 3rd arg. --- ChangeLog | 3 +-- poe-18.el | 15 --------------- 2 files changed, 1 insertion(+), 17 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2111bf7..c37d81f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,6 @@ 2000-02-21 Daiki Ueno - * poe-18.el (next-window): New function. - (walk-windows): New function. + * poe-18.el (walk-windows): New function. * poe-xemacs.el (set-extent-properties): New function. diff --git a/poe-18.el b/poe-18.el index e2900ab..93bc836 100644 --- a/poe-18.el +++ b/poe-18.el @@ -583,21 +583,6 @@ Fifth arg HIST is ignored in this implementatin." Optional argunemt FRAME is ignored in this implementation." (si:get-buffer-window buffer)))) -;; Add optional argument `all-frames'. -(or (fboundp 'si:next-window) - (progn - (fset 'si:next-window (symbol-function 'next-window)) - (defun next-window (&optional window minibuf all-frames) - "Return next window after WINDOW in canonical ordering of windows. -If omitted, WINDOW defaults to the selected window. - -Optional second arg MINIBUF t means count the minibuffer window even -if not active. MINIBUF nil or omitted means count the minibuffer iff -it is active. MINIBUF neither t nor nil means not to count the -minibuffer even if it is active. -Optional third argunemt ALL-FRAMES is ignored in this implementation." - (si:next-window window minibuf)))) - (defun-maybe walk-windows (proc &optional minibuf all-frames) "Cycle through all visible windows, calling PROC for each one. PROC is called with a window as argument. -- 1.7.10.4