Function: follow-scroll-up

follow-scroll-up is an autoloaded, interactive and byte-compiled function defined in follow.el.gz.

Signature

(follow-scroll-up &optional ARG)

Documentation

Scroll text in a Follow mode window chain up.

If called with no ARG, the next-screen-context-lines last lines of the bottom window in the chain will be visible in the top window.

If called with an argument, scroll ARG lines up. Negative ARG means scroll downward.

Works like scroll-up when not in Follow mode.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/follow.el.gz
;;;###autoload
(defun follow-scroll-up (&optional arg)
  "Scroll text in a Follow mode window chain up.

If called with no ARG, the `next-screen-context-lines' last lines of
the bottom window in the chain will be visible in the top window.

If called with an argument, scroll ARG lines up.
Negative ARG means scroll downward.

Works like `scroll-up' when not in Follow mode."
  (interactive "P")
  (cond ((not follow-mode)
	 (scroll-up-command arg))
	(arg (follow-scroll-up-arg arg))
        (t
	 (let* ((windows (follow-all-followers))
		(end (window-end (car (reverse windows)))))
	   (if (eq end (point-max))
	       (if (or (null scroll-error-top-bottom)
		       (eobp))
		   (signal 'end-of-buffer nil)
		 (goto-char (point-max)))
	     (select-window (car windows))
	     ;; `window-end' might return nil.
	     (if end
		 (goto-char end))
	     (vertical-motion (- next-screen-context-lines))
	     (set-window-start (car windows) (point)))))))