bug#35981: [PATCH] Use ngettext in `count-lines-page'

[Paul Eggert <eggert@cs.ucla.edu>]

[-- Attachment #1: Type: text/plain, Size: 299 bytes --]

When a diagnostic this short it's typically more straightforward to give 
the translators the whole diagnostic than to ask them to figure out how 
it's pieced together and to restrict their translations algorithmically, 
so I installed the attached patch instead. Thanks for reporting the problem.


[-- Attachment #2: 0001-Fig-grammar-of-count-lines-page.patch --]
[-- Type: text/x-patch, Size: 979 bytes --]

From bcea7e843936da41619df67faedf5f508db7d722 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@Penguin.CS.UCLA.EDU>
Date: Sun, 9 Jun 2019 16:59:43 -0700
Subject: [PATCH] Fig grammar of count-lines-page

* lisp/textmodes/page.el (count-lines-page):
Say "Page has 1 line", not "Page has 1 lines" (Bug#35981).
---
 lisp/textmodes/page.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index 2b0cea4c64..8921b697f3 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -141,7 +141,9 @@ 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))))
+      (message (ngettext "Page has %d line (%d + %d)"
+			 "Page has %d lines (%d + %d)" total)
+	       total before after))))
 
 (defun what-page ()
   "Print page and line number of point."
-- 
2.21.0