; Fix sit-for calling convention in zone.el

* lisp/play/zone.el (zone-pgm-2nd-putz-with-case)
(zone-pgm-putz-with-case): Don't use obsolete calling convention for
'sit-for'.

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 1e8e0cbab551d7d7187ab7bf1cc178a5e511e36c..a470f23dfe4f543aab64b9a2b4d90673238fd63d 100644 (file)
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -347,7 +347,7 @@ run a specific program.  The program must be a member of
                 (upcase i)))
         (setq i (+ i (1+ (random 5)))))
       (translate-region (point-min) (point-max) tbl)
-      (sit-for 0 2))))
+      (sit-for 0.002))))
 
 (defun zone-pgm-putz-with-case ()
   (goto-char (point-min))
@@ -359,7 +359,7 @@ run a specific program.  The program must be a member of
                    'downcase-region) (1- np) np)
         (setq np (+ np (1+ (random 5))))))
     (goto-char (point-min))
-    (sit-for 0 2)))
+    (sit-for 0.002)))
 
 
 ;;;; rotating