From 995a623594de27d398f0d97fcab9277e37fe29d1 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Mon, 12 Jul 2021 17:26:43 +0200 Subject: [PATCH] Fix dolist-with-progress-reporter behaviour * subr.el (dolist-with-progress-reporter): Use the length of list argument as maximal value the reporter with reach --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 5fac316e379..6bd9a018eb0 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -5995,7 +5995,7 @@ print the reporter message followed by the word \"done\". (,count 0) (,list ,(cadr spec))) (when (stringp ,prep) - (setq ,prep (make-progress-reporter ,prep 0 (1- (length ,list))))) + (setq ,prep (make-progress-reporter ,prep 0 (length ,list)))) (dolist (,(car spec) ,list) ,@body (progress-reporter-update ,prep (setq ,count (1+ ,count)))) -- 2.39.5