1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00

vc-dir-headers: Use ngettext, move the newline out of 'propertize'

* lisp/vc/vc-dir.el (vc-dir-headers): Use ngettext, move the
newline out of 'propertize'.
This commit is contained in:
Sean Whitton 2025-12-01 22:00:42 +00:00
parent 49611cce30
commit b0a0127880

View file

@ -1353,12 +1353,16 @@ specific headers."
(_ (plusp count))) (_ (plusp count)))
(concat (propertize "Outgoing : " (concat (propertize "Outgoing : "
'face 'vc-dir-header) 'face 'vc-dir-header)
(propertize (format "%d unpushed revisions\n" count) (propertize (format (ngettext "%d unpushed revision"
"%d unpushed revisions"
count)
count)
'face 'vc-dir-header-urgent-value 'face 'vc-dir-header-urgent-value
'mouse-face 'highlight 'mouse-face 'highlight
'keymap vc-dir-outgoing-revisions-map 'keymap vc-dir-outgoing-revisions-map
'help-echo "\\<vc-dir-outgoing-revisions-map>\ 'help-echo "\\<vc-dir-outgoing-revisions-map>\
\\[vc-log-outgoing]: List outgoing revisions"))))) \\[vc-log-outgoing]: List outgoing revisions")
"\n"))))
(defun vc-dir-refresh-files (files) (defun vc-dir-refresh-files (files)
"Refresh some FILES in the *VC-Dir* buffer." "Refresh some FILES in the *VC-Dir* buffer."