diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-04-10 16:52:31 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-04-10 16:52:31 -0400 |
| commit | 7e735aaf4d422be1c3bdf6a72e0ce6043a3e2cdf (patch) | |
| tree | 1e5b35e376c9bbcd6a07b62767203438e780eb3a /lisp/textmodes/page.el | |
| parent | 4095436808b499ffb813daac6f7cea828318faa5 (diff) | |
| download | emacs-7e735aaf4d422be1c3bdf6a72e0ce6043a3e2cdf.tar.gz | |
Fix for what-page (Bug#6825).
* textmodes/page.el (what-page): Use line-number-at-pos to
calculate line number.
Diffstat (limited to 'lisp/textmodes/page.el')
| -rw-r--r-- | lisp/textmodes/page.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index d71e20030ff..a758a9ba998 100644 --- 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)))))) + + ;;; Place `provide' at end of file. (provide 'page) |