what-page and first line of page?

[Mario Lang <mlang@delysid.org>]

Hi.

I am editiing a long document where original page numbers are important.
When I use `what-page' to see to which physical page the position
of point currently corresponds, I notice that it does not
work on the first line which starts with ^L.  I.e.:

line 1 or page 1
\fline 2 of page 1
line 1 of page 2

To make `what-page' return the correct page number I either
always have to immediately follow ^L with a newline, or
remove `beginning-of-line' in the definition of `what-page':

(defun what-page ()
  "Print page and line number of point."
  (interactive)
  (save-restriction
    (widen)
    (save-excursion
      ;(beginning-of-line)
      (let ((count 1)
	    (opoint (point)))
	(goto-char 1)
	(while (re-search-forward page-delimiter opoint t)
	  (setq count (1+ count)))
	(message "Page %d, line %d"
		 count
		 (1+ (count-lines (point) opoint)))))))

I am arguing this is a bug.  Does anyone know why
the `beginning-of-line' is actually in there?

-- 
CYa,
  ⡍⠁⠗⠊⠕