From 61226605f6bfe5d0a4d9d63bda7f0eae634d9ec8 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 28 Oct 2022 22:34:24 +0200 Subject: [PATCH] ; 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'. --- lisp/play/zone.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/play/zone.el b/lisp/play/zone.el index 1e8e0cbab55..a470f23dfe4 100644 --- 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 -- 2.39.5