;;; page.el --- page motion commands for Emacs
-;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2001-2015 Free Software Foundation, Inc.
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
;; Keywords: wp convenience
;; Package: emacs
(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)