Function: tpu--respect-bottom-scroll-margin

tpu--respect-bottom-scroll-margin is a byte-compiled function defined in tpu-extras.el.gz.

Signature

(tpu--respect-bottom-scroll-margin ORIG-FUN &optional &rest ARGS)

Documentation

Respect tpu-bottom-scroll-margin.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-extras.el.gz
;; Advise the newline, newline-and-indent, and do-auto-fill functions.
(defun tpu--respect-bottom-scroll-margin (orig-fun &optional &rest args)
  "Respect `tpu-bottom-scroll-margin'."
  (let ((beg (tpu-current-line))
        (num (prefix-numeric-value (car args))))
    (apply orig-fun args)
    (tpu-bottom-check beg num)))