Less chatty indentation

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index bd088a9359157298a979dd985842afb8009a6712..876c0f803bfa0e62fb9e19c19e8701ea35281b3d 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -952,9 +952,7 @@ by more than one line to cross a string literal."
     ;; The default `indent-region-line-by-line' doesn't hold a running
     ;; parse state, which forces each indent call to reparse from the
     ;; beginning.  That has O(n^2) complexity.
-    (let* ((parse-state (lisp-indent-initial-state))
-           (pr (unless (minibufferp)
-                 (make-progress-reporter "Indenting region..." (point) end))))
+    (let* ((parse-state (lisp-indent-initial-state)))
       (let ((ppss (lisp-indent-state-ppss parse-state)))
         (unless (or (and (bolp) (eolp)) (nth 3 ppss))
           (lisp-indent-line (calculate-lisp-indent ppss))))
@@ -962,9 +960,7 @@ by more than one line to cross a string literal."
         (while (progn (setq indent (lisp-indent-calc-next parse-state))
                       (< (point) end))
           (unless (or (and (bolp) (eolp)) (not indent))
-            (lisp-indent-line indent))
-          (and pr (progress-reporter-update pr (point)))))
-      (and pr (progress-reporter-done pr))
+            (lisp-indent-line indent))))
       (move-marker end nil))))
 
 (defun lisp-indent-line (&optional indent)

diff --git a/lisp/indent.el b/lisp/indent.el
index 74ef9183d9575c2ff41b4f366efe18614b2ef1f1..1dcfc76d382bdad2c5e007ab510019be84a5925d 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -612,15 +612,11 @@ column to indent to; if it is nil, use one of the three methods above."
   (save-excursion
     (setq end (copy-marker end))
     (goto-char start)
-    (let ((pr (unless (minibufferp)
-                (make-progress-reporter "Indenting region..." (point) end))))
-      (while (< (point) end)
-        (or (and (bolp) (eolp))
-            (indent-according-to-mode t))
-        (forward-line 1)
-        (and pr (progress-reporter-update pr (point))))
-      (and pr (progress-reporter-done pr))
-      (move-marker end nil))))
+    (while (< (point) end)
+      (or (and (bolp) (eolp))
+          (indent-according-to-mode t))
+      (forward-line 1))
+    (move-marker end nil)))
 
 (define-obsolete-function-alias 'indent-relative-maybe
   'indent-relative-first-indent-point "26.1")

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 86dc4733d3786c94a84eff1957d33ff24f0d5531..cd64aa669b5a93e858d005797e15fa83a8a808ce 100644 (file)
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -1968,8 +1968,7 @@ Similar to `treesit-indent', but indent a region instead."
          (lines-left-to-move 0)
          (end (copy-marker end t))
          (idx 0)
-         (starting-pos 0)
-         (announce-progress (> (- end beg) 80000)))
+         (starting-pos 0))
     (save-excursion
       (goto-char beg)
       ;; First pass.  Go through each line and compute the
@@ -2019,10 +2018,7 @@ Similar to `treesit-indent', but indent a region instead."
                            (goto-char anchor)
                            (+ offset (current-column)))))
                 (indent-line-to col))))
-          (forward-line 1))
-        (when announce-progress
-          (message "Indenting region...%s%%"
-                   (/ (* (- (point) beg) 100) (- end beg)))))
+          (forward-line 1)))
       ;; Delete markers.
       (dotimes (idx treesit--indent-region-batch-size)
         (let ((marker (aref meta-vec (* idx meta-len))))