[elpa] externals/vc-hgcmd 45000c8 75/87: Don't append extra empty line in vc-dir

[Stefan Monnier]

branch: externals/vc-hgcmd
commit 45000c801e4e5ffe8f454fe10980afc0d54b8e38
Author: muffinmad <andreyk.mad@gmail.com>
Commit: muffinmad <andreyk.mad@gmail.com>

    Don't append extra empty line in vc-dir
---
 vc-hgcmd.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index 6dad07f..546a017 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -747,7 +747,8 @@ Insert output to process buffer and check if amount of data 
is enought to parse
   (concat
    (with-temp-buffer
      (when (vc-hgcmd--run-command (make-vc-hgcmd--command :command (list 
"summary") :output-buffer (current-buffer) :wait t))
-       (apply #'concat
+       (mapconcat
+        #'identity
         (let (result)
           (goto-char (point-min))
           (while (not (eobp))
@@ -757,15 +758,16 @@ Insert output to process buffer and check if amount of 
data is enought to parse
                             (cons "" (buffer-substring (point) 
(line-end-position))))))
                (concat
                 (propertize (format "%-11s: " (car entry)) 'face 
'font-lock-type-face)
-                (propertize (cdr entry) 'face 'font-lock-variable-name-face)
-                "\n"))
+                (propertize (cdr entry) 'face 'font-lock-variable-name-face)))
              result)
             (forward-line))
-          (nreverse result)))))
+          (nreverse result))
+        "\n")))
    (when vc-hgcmd-dir-show-shelve
      (let ((shelves (vc-hgcmd-shelve-list)))
        (when shelves
          (concat
+          "\n"
           (propertize "Shelve     :\n" 'face 'font-lock-type-face)
           (with-temp-buffer
             (when (vc-hgcmd--run-command (make-vc-hgcmd--command :command 
(list "shelve" "-l") :output-buffer (current-buffer) :wait t))