[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100549: Fix for what-page (Bug#6825).

[Chong Yidong]

------------------------------------------------------------
revno: 100549
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Sun 2011-04-10 16:52:31 -0400
message:
  Fix for what-page (Bug#6825).
  
  * textmodes/page.el (what-page): Use line-number-at-pos to
  calculate line number.
modified:
  lisp/ChangeLog
  lisp/textmodes/page.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-10 02:10:52 +0000
+++ b/lisp/ChangeLog    2011-04-10 20:52:31 +0000
@@ -1,3 +1,8 @@
+2011-04-10  Stephen Berman <address@hidden>
+
+       * textmodes/page.el (what-page): Use line-number-at-pos to
+       calculate line number (Bug#6825).
+
 2011-04-10  Chong Yidong  <address@hidden>
 
        * mouse.el (mouse-drag-mode-line-1): Make sure that if we push

=== modified file 'lisp/textmodes/page.el'
--- a/lisp/textmodes/page.el    2011-01-02 23:50:46 +0000
+++ b/lisp/textmodes/page.el    2011-04-10 20:52:31 +0000
@@ -156,9 +156,9 @@
           (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))))))
+
+
 
 ;;; Place `provide' at end of file.
 (provide 'page)