X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fplot.phylo.R;h=ff2317c87628357d21a758d1592d60a763e6dbe8;hb=d88302b4735b5b7c9132387090bb592d906fe1cb;hp=76a1d6babac0945e2b83e5a4cda86efc88e0eb6c;hpb=2e3b8be33765d5311e071efb39871249d16f7e30;p=ape.git

diff --git a/R/plot.phylo.R b/R/plot.phylo.R
index 76a1d6b..ff2317c 100644
--- a/R/plot.phylo.R
+++ b/R/plot.phylo.R
@@ -1,8 +1,8 @@
-## plot.phylo.R (2007-12-22)
+## plot.phylo.R (2008-01-12)
 
 ##   Plot Phylogenies
 
-## Copyright 2002-2007 Emmanuel Paradis
+## Copyright 2002-2008 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -509,6 +509,7 @@ plot.multiPhylo <- function(x, layout = 1, ...)
 {
     if (layout > 1)
       layout(matrix(1:layout, ceiling(sqrt(layout)), byrow = TRUE))
+    else layout(matrix(1))
     if (!par("ask")) {
         par(ask = TRUE)
         on.exit(par(ask = FALSE))