Function: follow-align-compilation-windows

follow-align-compilation-windows is a byte-compiled function defined in follow.el.gz.

Signature

(follow-align-compilation-windows)

Documentation

Align the windows of the current Follow mode buffer.

This is to be called from compilation-filter-hook.

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
(defun follow-align-compilation-windows ()
  "Align the windows of the current Follow mode buffer.
This is to be called from `compilation-filter-hook'."
  (let ((buffer (current-buffer))
	(win (get-buffer-window))
	(selected (selected-window)))
    (when (and follow-mode (waiting-for-user-input-p) win)
      (let ((windows (follow-all-followers win)))
	(unless (eq (window-buffer selected) buffer)
	  (setq win (car windows))
	  (select-window win))
	(follow-redisplay windows win t)
	(setq follow-windows-start-end-cache nil)
	(unless (eq selected win)
	  (select-window selected)
	  (set-buffer buffer))))))