Function: page--what-page

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

Signature

(page--what-page)

Documentation

Return a list of the page and line number of point.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/page.el.gz
(defun page--what-page ()
  "Return a list of the page and line number of point."
  (save-restriction
    (widen)
    (save-excursion
      (let ((count 1)
            (opoint (point)))
        (goto-char (point-min))
        (while (re-search-forward page-delimiter opoint t)
          (when (= (match-beginning 0) (match-end 0))
            (forward-char))
          (setq count (1+ count)))
        (list count (line-number-at-pos opoint))))))