; 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'.
This commit is contained in:
Stefan Kangas 2022-10-28 22:34:24 +02:00
parent cabb496d6e
commit 61226605f6

View file

@ -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