[elpa] externals/vc-hgcmd dc7d629 66/87: removed useless vconcat and bindat-unpack call

[Stefan Monnier]

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

    removed useless vconcat and bindat-unpack call
---
 vc-hgcmd.el | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index 8712e5e..ed884a1 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -5,7 +5,7 @@
 ;; Author: Andrii Kolomoiets <andreyk.mad@gmail.com>
 ;; Keywords: vc
 ;; URL: https://github.com/muffinmad/emacs-vc-hgcmd
-;; Package-Version: 1.6.8
+;; Package-Version: 1.6.9
 ;; Package-Requires: ((emacs "25.1"))
 
 ;; This file is NOT part of GNU Emacs.
@@ -277,19 +277,17 @@ same branch was merged."
               (inhibit-read-only t))
           (delete-region 1 (- (point) 5))
           (cons ?o data))
-      (let* ((data (bindat-unpack '((c byte) (d u32)) (vconcat 
(buffer-substring-no-properties 1 6))))
+      (let* ((data (bindat-unpack '((c byte) (d u32)) 
(buffer-substring-no-properties 1 6)))
              (channel (bindat-get-field data 'c))
              (size (bindat-get-field data 'd)))
         (cond ((memq channel '(?o ?e ?d ?r))
                (when (> (point-max) (+ 5 size))
-                 (let ((data (vconcat (buffer-substring-no-properties 6 (+ 6 
size))))
+                 (let ((data (buffer-substring-no-properties 6 (+ 6 size)))
                        (inhibit-read-only t))
                    (delete-region 1 (+ 6 size))
                    (cons channel (if (eq channel ?r)
                                      (bindat-get-field (bindat-unpack `((f 
u32)) data) 'f)
-                                   (decode-coding-string
-                                    (bindat-get-field (bindat-unpack `((f str 
,(length data))) data) 'f)
-                                    vc-hgcmd--encoding))))))
+                                   (decode-coding-string data 
vc-hgcmd--encoding))))))
               ((memq channel '(?I ?L))
                (let ((inhibit-read-only t))
                  (delete-region 1 6))