Don't show blank screen on longer pauses

[spray] / spray.el

diff --git a/spray.el b/spray.el
index 7dbd65a583e8ae361729e6e03d2b3cafa2419eee..727879880d604efe23d091e2928db800b80e2b55 100644 (file)
--- a/spray.el
+++ b/spray.el
@@ -274,9 +274,7 @@ decreasing by one for each subsequent word."
   (cond ((not (zerop spray--initial-delay))
          (setq spray--initial-delay (1- spray--initial-delay)))
         ((not (zerop spray--delay))
-         (setq spray--delay (1- spray--delay))
-         (when (= spray--delay 2)
-           (narrow-to-region (point) (point))))
+         (setq spray--delay (1- spray--delay)))
         (t
          (widen)
          (if (eobp)