Saving Trellis Graphics in R 1.9.0. (PR#6915)

Okay, here's one example that might reproduce this behavior.  At least 
it doesn't work for me at the moment:

library(lattice)
trellis.device(dev = x11)
set.seed(1); x <- rnorm(100); y <- rnorm(100)
xyplot(y ~ x, panel = function(...) {
	panel.xyplot(...)
	ltext(0,0,labels = expression(paste("P(", beta[2] > 0, ")") == .65), 
cex = .6) })
dev.copy2eps(file = "asdf.eps")

Note that, when I run it on my computer, I do get the following 
warning after the call to xyplot():

Warning message:
X11 used font size 8 when 7 was requested

So I have been warned, but I didn't think this would produce an empty 
plot.  One problem, if I remember correctly, is that sometimes it 
works and sometimes it doesn't which I think is why I didn't bother 
with it before.

-roger

 > version
          _
platform i686-pc-linux-gnu
arch     i686
os       linux-gnu
system   i686, linux-gnu
status   alpha
major    1
minor    9.1
year     2004
month    05
day      24
language R
 >