[gnus git] branch master updated: =1= gnus-win: remove compat code

       via  364c492ff306b7b0e940c394ece819287633041d (commit)
      from  bb2de2df12c2dcfa2e5dc63736e598cfca3190ec (commit)


- Log -----------------------------------------------------------------
commit 364c492ff306b7b0e940c394ece819287633041d
Author: Julien Danjou <[email protected]>
Date:   Fri Jan 28 18:07:30 2011 +0100

    gnus-win: remove compat code
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11ee601..113bca8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2011-01-28  Julien Danjou  <[email protected]>
 
 	* 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
--- 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 ()

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    2 ++
 lisp/gnus-win.el |    7 ++-----
 2 files changed, 4 insertions(+), 5 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project