From: Philip Kaludercic <philipk@posteo.net>
Date: Mon, 12 Jul 2021 15:26:43 +0000 (+0200)
Subject: Fix dolist-with-progress-reporter behaviour
X-Git-Tag: emacs-28.0.90~823
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=995a623594de27d398f0d97fcab9277e37fe29d1;p=emacs.git

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

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