[rkward/work/preview_with_menu] rkward/rbackend/rpackages/rkward/R: Fix device duplication, when source device is history disabled.

[Thomas Friedrichsmeier]

Git commit f7b31f15668dcff21c952badd60a23113ba96686 by Thomas Friedrichsmeier.
Committed on 03/02/2016 at 20:14.
Pushed by tfry into branch 'work/preview_with_menu'.

Fix device duplication, when source device is history disabled.

M  +1    -1    rkward/rbackend/rpackages/rkward/R/public_graphics.R

http://commits.kde.org/rkward/f7b31f15668dcff21c952badd60a23113ba96686

diff --git a/rkward/rbackend/rpackages/rkward/R/public_graphics.R b/rkward/rbackend/rpackages/rkward/R/public_graphics.R
index e56b08b..3775d75 100644
--- a/rkward/rbackend/rpackages/rkward/R/public_graphics.R
+++ b/rkward/rbackend/rpackages/rkward/R/public_graphics.R
@@ -340,7 +340,7 @@
 		devId <- as.character (devId)
 		
 		histPositions [[devId]] <<- .hP.template
-		if ((env$duplicating.from.device > 1) && !histPositions [[devId.from]]$is.this.dev.new) {
+		if ((env$duplicating.from.device > 1) && .is.device.managed (devId.from) && !histPositions [[devId.from]]$is.this.dev.new) {
 			# devId.from > 1
 			## TODO: see if so many "[[" calls can be reduced?
 			histPositions [[devId]]$is.this.plot.new <<- TRUE