Function: tpu-bottom-check

tpu-bottom-check is a byte-compiled function defined in tpu-extras.el.gz.

Signature

(tpu-bottom-check BEG LINES)

Documentation

Enforce scroll margin at the bottom of screen.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-extras.el.gz
(defun tpu-bottom-check (beg lines)
  "Enforce scroll margin at the bottom of screen."
  (let* ((height (window-height))
	 (margin (+ 1 (/ (* height tpu-bottom-scroll-margin) 100)))
	 ;; subtract 1 from height because it includes mode line
	 (difference (- height margin 1)))
    (cond ((> beg difference) (recenter beg))
	  ((> (+ beg lines) difference) (recenter (- margin))))))