Function: follow-redraw-after-event

follow-redraw-after-event is a byte-compiled function defined in follow.el.gz.

Signature

(follow-redraw-after-event EVENT)

Documentation

Re-align the Follow mode windows affected by EVENT.

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
(defun follow-redraw-after-event (event)
  "Re-align the Follow mode windows affected by EVENT."
  (let* ((window (nth 0 (event-end event)))
	 (buffer (window-buffer window))
	 (orig-win (selected-window)))
    (when (and (buffer-local-value 'follow-mode buffer)
	       ;; Ignore the case where we scroll the selected window;
	       ;; that is handled by the post-command hook function.
	       (not (eq window (selected-window))))
      (select-window window)
      (follow-redisplay)
      (unless (eq (window-buffer orig-win) buffer)
	(select-window orig-win)))))