[Emacs-diffs] scratch/follow f3f0d12: * lisp/follow.el (follow-sit-for): Remove (it's redundant).

[Alan Mackenzie]

branch: scratch/follow
commit f3f0d12cafb89b68bb5ccee0c6e2ced80d204336
Author: Alan Mackenzie <address@hidden>
Commit: Alan Mackenzie <address@hidden>

    * lisp/follow.el (follow-sit-for): Remove (it's redundant).
---
 lisp/follow.el |   27 +++------------------------
 1 files changed, 3 insertions(+), 24 deletions(-)

diff --git a/lisp/follow.el b/lisp/follow.el
index 3a876bc..dc52531 100644
--- a/lisp/follow.el
+++ b/lisp/follow.el
@@ -1479,9 +1479,9 @@ non-first windows in Follow mode."
 
 ;; These routines are the Follow Mode versions of the low level
 ;; functions described on page "Window Start and End" of the elisp
-;; manual, e.g. `window*-start'.  The aim is to be able to handle
-;; Follow Mode windows by replacing `window-start' by `window*-start',
-;; etc.
+;; manual, e.g. `window-group-start'.  The aim is to be able to handle
+;; Follow Mode windows by replacing `window-start' by
+;; `window-group-start', etc.
 
 (defun follow-after-change (_beg _end _old-len)
   "After change function: set `follow-start-end-invalid'."
@@ -1615,27 +1615,6 @@ zero means top of the first window in the group, 
negative means
                  lines (+ lines count)))))))
     (+ lines (move-to-window-line arg))))
 
-(defun follow-sit-for (seconds &optional nodisp)
-  "Redisplay, then wait for SECONDS seconds.  Stop when input is available.
-Before redisplaying, synchronise all Follow windows.
-
-SECONDS may be a floating-point value.
-\(On operating systems that do not support waiting for fractions of a
-second, floating-point values are rounded down to the nearest integer.)
-
-Redisplay does not happen if input is available before it starts.
-If optional arg NODISP is t, don't synchronise or redisplay, just
-wait for input.
-
-Value is t if waited the full time with no input arriving, and nil
-otherwise.
-
-The functionality is intended to be the same as `sit-for''s."
-  (when (and (not (input-pending-p t))
-             (not nodisp))
-    (follow-adjust-window (selected-window)))
-  (sit-for seconds nodisp))
-
 ;;; Profile support
 
 ;; The following (non-evaluated) section can be used to