gnus-win: remove compat code

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11ee601..113bca8 100644 (file)
--- 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 4a9480a..156f9a0 100644 (file)
--- 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 ()