From: Julien Danjou <julien@danjou.info>
Date: Fri, 28 Jan 2011 17:07:30 +0000 (+0100)
Subject: gnus-win: remove compat code
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=364c492ff306b7b0e940c394ece819287633041d;p=gnus

gnus-win: remove compat code

Signed-off-by: Julien Danjou <julien@danjou.info>
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11ee6012b..113bca891 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2011-01-28  Julien Danjou  <julien@danjou.info>
 
 	* gnus-win.el: Remove dead function gnus-window-configuration-element.
+	(gnus-all-windows-visible-p): Remove old compatibility code.
+	(gnus-window-top-edge): Add docstring.
 
 	* gnus-group.el (gnus-group-jump-to-group): Set must match to t.
 
diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 4a9480ab8..156f9a020 100644
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -437,11 +437,7 @@ should have point."
 	type buffer win buf)
     (while (and (setq split (pop stack))
 		all-visible)
-      ;; Be backwards compatible.
-      (when (vectorp split)
-	(setq split (append split nil)))
-      (when (or (consp (car split))
-		(vectorp (car split)))
+      (when (consp (car split))
 	(push 1.0 split)
 	(push 'vertical split))
       ;; The SPLIT might be something that is to be evaled to
@@ -473,6 +469,7 @@ should have point."
       all-visible)))
 
 (defun gnus-window-top-edge (&optional window)
+  "Return the top coordinate of WINDOW."
   (nth 1 (window-edges window)))
 
 (defun gnus-remove-some-windows ()