Function: tpu-top-check

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

Signature

(tpu-top-check BEG LINES)

Documentation

Enforce scroll margin at the top of screen.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-extras.el.gz
;;;  Utility routines for implementing scroll margins

(defun tpu-top-check (beg lines)
  "Enforce scroll margin at the top of screen."
  (let ((margin	 (/ (* (window-height) tpu-top-scroll-margin) 100)))
    (cond ((< beg margin) (recenter beg))
	  ((< (- beg lines) margin) (recenter margin)))))