diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index 220ef2d7fd..d7214f610f 100644 --- a/lisp/textmodes/page.el +++ b/lisp/textmodes/page.el @@ -142,7 +142,8 @@ count-lines-page (setq total (count-lines beg end) before (count-lines beg opoint) after (count-lines opoint end)) - (message "Page has %d lines (%d + %d)" total before after)))) + (let ((fmt (ngettext "Page has %d line" "Page has %d lines" total))) + (message "%s (%d + %d)" (format-message fmt total) before after))))) (defun what-page () "Print page and line number of point."