Rename `recenter-group' to `recenter-window-group'

* doc/lispref/windows.texi (Textual Scrolling)
* lisp/window.el (top level, recenter-group)
* lisp/follow.el (follow-mode)
* lisp/isearch.el (isearch-back-into-window): Rename `recenter-group' to
`recenter-window-group' and `recenter-group-function' to
`recenter-window-group-function'.

diff --git a/doc/lispref/windows.texi b/doc/lispref/windows.texi
index 0c0c1bce3b9b1ac36f2d8562f98b9052f3c40aa5..e45201b0570db55785337b36d110d5cdec3a97ab 100644 (file)
--- a/doc/lispref/windows.texi
+++ b/doc/lispref/windows.texi
@@ -3546,14 +3546,15 @@ the top of the window.  The command @code{recenter-top-bottom} offers
 a more convenient way to achieve this.
 @end deffn
 
-@vindex recenter-group-function
-@defun recenter-group &optional count
+@vindex recenter-window-group-function
+@defun recenter-window-group &optional count
 This function is like @code{recenter}, except that when the selected
 window is part of a group of windows (@pxref{Window Group}),
-@code{recenter-group} scrolls the entire group.  This condition holds
-when the buffer local variable @code{recenter-group-function} is set
-to a function.  In this case, @code{recenter-group} calls the function
-with the argument @var{count}, then returns its result.  The argument
+@code{recenter-window-group} scrolls the entire group.  This condition
+holds when the buffer local variable
+@code{recenter-window-group-function} is set to a function.  In this
+case, @code{recenter-window-group} calls the function with the
+argument @var{count}, then returns its result.  The argument
 @var{count} has the same meaning as in @code{recenter}, but with
 respect to the entire window group.
 @end defun

diff --git a/lisp/follow.el b/lisp/follow.el
index dc525315b860e25e3867ae70e91e97dedb7afe9d..71e8824947de3b4bc1c40bd291ef743b023a0344 100644 (file)
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -430,7 +430,7 @@ Keys specific to Follow mode:
         (setq window-group-start-function 'follow-window-start)
         (setq window-group-end-function 'follow-window-end)
         (setq set-window-group-start-function 'follow-set-window-start)
-        (setq recenter-group-function 'follow-recenter)
+        (setq recenter-window-group-function 'follow-recenter)
         (setq pos-visible-in-window-group-p-function
               'follow-pos-visible-in-window-p)
         (setq selected-window-group-function 'follow-all-followers)
@@ -450,7 +450,7 @@ Keys specific to Follow mode:
     (kill-local-variable 'move-to-window-group-line-function)
     (kill-local-variable 'selected-window-group-function)
     (kill-local-variable 'pos-visible-in-window-group-p-function)
-    (kill-local-variable 'recenter-group-function)
+    (kill-local-variable 'recenter-window-group-function)
     (kill-local-variable 'set-window-group-start-function)
     (kill-local-variable 'window-group-end-function)
     (kill-local-variable 'window-group-start-function)

diff --git a/lisp/isearch.el b/lisp/isearch.el
index b29e432f37e403cd358c17c3a9f57c81aec5e456..05dc2931d93528d89ee6f4d678915dfa7a215445 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2311,15 +2311,15 @@ the bottom."
     (if above
         (progn
           (goto-char start)
-          (recenter-group 0)
+          (recenter-window-group 0)
           (when (>= isearch-point (window-group-end nil t))
             (goto-char isearch-point)
-            (recenter-group -1)))
+            (recenter-window-group -1)))
       (goto-char end)
-      (recenter-group -1)
+      (recenter-window-group -1)
       (when (< isearch-point (window-group-start))
         (goto-char isearch-point)
-        (recenter-group 0))))
+        (recenter-window-group 0))))
   (goto-char isearch-point))
 
 (defvar isearch-pre-scroll-point nil)

diff --git a/lisp/window.el b/lisp/window.el
index ce0256f1fff3a4f66aeb2fbbb95f099d75d6da07..c57fef441f5e4dc0a7a6d78ac9c3c8a4127b3d55 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -7930,10 +7930,10 @@ overriding motion of point in order to display at this exact start."
       (funcall set-window-group-start-function window pos noforce)
     (set-window-start window pos noforce)))
 
-(defvar recenter-group-function nil)
-(make-variable-buffer-local 'recenter-group-function)
-(put 'recenter-group-function 'permanent-local t)
-(defun recenter-group (&optional arg)
+(defvar recenter-window-group-function nil)
+(make-variable-buffer-local 'recenter-window-group-function)
+(put 'recenter-window-group-function 'permanent-local t)
+(defun recenter-window-group (&optional arg)
   "Center point in the group of windows containing the selected window
 and maybe redisplay frame.  When a grouping mode (such as Follow Mode)
 is not active, this function is identical to `recenter'.
@@ -7953,8 +7953,8 @@ are redrawn.
 
 Just C-u as prefix means put point in the center of the window
 and redisplay normally--don't erase and redraw the frame."
-  (if (functionp recenter-group-function)
-      (funcall recenter-group-function arg)
+  (if (functionp recenter-window-group-function)
+      (funcall recenter-window-group-function arg)
     (recenter arg)))
 
 (defvar pos-visible-in-window-group-p-function nil)