branch: externals/vc-hgcmd
commit 45000c801e4e5ffe8f454fe10980afc0d54b8e38
Author: muffinmad <andreyk....@gmail.com>
Commit: muffinmad <andreyk....@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))
