[Rd] Warning for dropped text with devices that don't support clipping (in text attachments)

[Sebastian Fischmeister]

Hello,

   Apparently, the mail program doesn't like attachments. Here's the  
patch and the script again.

Sebastian

------- R Script -------

xfig 
(file 
= 
"test 
.fig",onefile=TRUE,width=6,height=4,textspecial=TRUE,defaultfont=TRUE)
barplot(seq(.8,0,-0.15))
legend("topright",legend=c("1234567890"),cex=.7,text.width=.5)
dev.off()
unlink("test.fig")

------- patch -------

Index: src/main/engine.c
===================================================================
--- src/main/engine.c	(revision 47716)
+++ src/main/engine.c	(working copy)
@@ -1424,7 +1424,7 @@
  	if (toDevice) /* Device will do clipping */
  	    textfn(x, y, str, rot, hadj, gc, dd->dev);
  	else /* don't draw anything; this could be made less crude :) */
-	    ;
+	    warning(_("current device doesn't support clipping, text removed  
'%s'"), str);
      }
  }