Function: follow-select-if-visible

follow-select-if-visible is a byte-compiled function defined in follow.el.gz.

Signature

(follow-select-if-visible DEST WIN-START-END)

Documentation

Select and return a window, if DEST is visible in it.

Return the selected window.

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
(defun follow-select-if-visible (dest win-start-end)
  "Select and return a window, if DEST is visible in it.
Return the selected window."
  (let (win wse)
    (while (and (not win) win-start-end)
      ;; Don't select a window that was just moved. This makes it
      ;; possible to later select the last window after a
      ;; `end-of-buffer' command.
      (setq wse (car win-start-end))
      (when (follow-pos-visible dest (car wse) win-start-end)
	(setq win (car wse))
	(select-window win))
      (setq win-start-end (cdr win-start-end)))
    win))