Add a new argument to 'recenter' to allow finer control of redisplay

* window.c (recenter): Add a new REDISPLAY argument to allow the
caller to control the redisplay behavior.  'recenter' will only
redisplay the frame if this new arg and 'recenter-redisplay' are
both non-nil.
(recenter-top-bottom): Pass an extra non-nil argument to
'recenter' to force a redisplay.  (Bug#31325)

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/window.el b/lisp/window.el
index fdd510401da..6d9d8bdcd2e 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -8778,15 +8778,15 @@ A prefix argument is handled like `recenter':
            (min (max 0 scroll-margin)
                 (truncate (/ (window-body-height) 4.0)))))
       (cond ((eq recenter-last-op 'middle)
-             (recenter))
+             (recenter nil t))
             ((eq recenter-last-op 'top)
-             (recenter this-scroll-margin))
+             (recenter this-scroll-margin t))
             ((eq recenter-last-op 'bottom)
-             (recenter (- -1 this-scroll-margin)))
+             (recenter (- -1 this-scroll-margin) t))
             ((integerp recenter-last-op)
-             (recenter recenter-last-op))
+             (recenter recenter-last-op t))
             ((floatp recenter-last-op)
-             (recenter (round (* recenter-last-op (window-height))))))))))
+             (recenter (round (* recenter-last-op (window-height))) t)))))))
 
 (define-key global-map [?\C-l] 'recenter-top-bottom)