--- heatmap.2.R	2015-05-01 17:28:46.000000000 +0200
+++ heatmap.2.patched.R	2016-03-22 18:55:13.571835868 +0100
@@ -744,8 +744,10 @@
 
     }
   else
-    plot.new()
-
+    {
+      par(mar=c(0, 0, 0, 0))
+      plot.new()
+    }
   ## Create a table showing how colors match to (transformed) data ranges
   retval$colorTable <- data.frame(
                              low=retval$breaks[-length(retval$breaks)],