Function: page--count-lines-page

page--count-lines-page is a byte-compiled function defined in page.el.gz.

Signature

(page--count-lines-page)

Documentation

Return a list of line counts on the current page.

The list is on the form (TOTAL BEFORE AFTER), where TOTAL is the total number of lines on the current page, while BEFORE and AFTER are the number of lines on the current page before and after point, respectively.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/page.el.gz
(defun page--count-lines-page ()
  "Return a list of line counts on the current page.
The list is on the form (TOTAL BEFORE AFTER), where TOTAL is the
total number of lines on the current page, while BEFORE and AFTER
are the number of lines on the current page before and after
point, respectively."
  (save-excursion
    (let ((opoint (point)))
      (forward-page)
      (beginning-of-line)
      (unless (looking-at page-delimiter)
        (end-of-line))
      (let ((end (point)))
        (backward-page)
        (list (count-lines (point) end)
              (count-lines (point) opoint)
              (count-lines opoint end))))))