Fix for what-page (Bug#6825).

* textmodes/page.el (what-page): Use line-number-at-pos to
calculate line number.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2ed50e4b6f4099d54ffa69c5b7716c5042b4c4f..c89bb3f281a91e37d251a7ef944ec2066eef94ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-10  Stephen Berman <stephen.berman@gmx.net>
+
+       * textmodes/page.el (what-page): Use line-number-at-pos to
+       calculate line number (Bug#6825).
+
 2011-04-10  Chong Yidong  <cyd@stupidchicken.com>
 
        * mouse.el (mouse-drag-mode-line-1): Make sure that if we push

diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index d71e20030ffcbc88aa90dcc8c93713d6104978c1..a758a9ba9988f4c61102ca7b475d96507a23c4b4 100644 (file)
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -156,9 +156,9 @@ thus showing a page other than the one point was originally in."
           (if (= (match-beginning 0) (match-end 0))
               (forward-char 1))
          (setq count (1+ count)))
-       (message "Page %d, line %d"
-                count
-                (1+ (count-lines (point) opoint)))))))
+       (message "Page %d, line %d" count (line-number-at-pos opoint))))))
+
+
 \f
 ;;; Place `provide' at end of file.
 (provide 'page)