mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/vc/vc-dir.el (vc-dir-headers): Put newlines in better places.

Browse source
This commit is contained in:
Sean Whitton 2025-12-01 12:19:20 +00:00
parent 1c3d37a673
commit 4271fc0daa
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc/vc-dir.el
View file

@ -1348,17 +1348,17 @@ specific headers."
(propertize (format "%s\n" (abbreviate-file-name dir)) (propertize (format "%s\n" (abbreviate-file-name dir))
'face 'vc-dir-header-value) 'face 'vc-dir-header-value)
(vc-call-backend backend 'dir-extra-headers dir) (vc-call-backend backend 'dir-extra-headers dir)
"\n"
(and-let* ((count (ignore-errors (vc--count-outgoing backend))) (and-let* ((count (ignore-errors (vc--count-outgoing backend)))
(_ (plusp count))) (_ (plusp count)))
(concat (propertize "\nOutgoing : " (concat (propertize "Outgoing : "
'face 'vc-dir-header) 'face 'vc-dir-header)
(propertize (format "%d unpushed revisions\n" count) (propertize (format "%d unpushed revisions\n" 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."