From: ueno <ueno>
Date: Mon, 21 Feb 2000 19:45:13 +0000 (+0000)
Subject: (next-window): Don't redefine with 3rd arg.
X-Git-Tag: apel-10_2~7
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=a0e3f9b8f62331e7608453d08ed3564bf65eaf17;hp=cdaf348bed4e280c1c7d793f14357b390f0348d4

(next-window): Don't redefine with 3rd arg.
---

diff --git a/ChangeLog b/ChangeLog
index 2111bf7..c37d81f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,6 @@
 2000-02-21   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
-	* 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.