[elpa] externals/vc-got 0d57aba 072/145: remove the separator when showing a chunk to stage

[ELPA Syncer]

branch: externals/vc-got
commit 0d57aba161f743f963b069cca68777fcd0f9f21c
Author: Omar Polo <op@omarpolo.com>
Commit: Omar Polo <op@omarpolo.com>

    remove the separator when showing a chunk to stage
---
 vc-got-stage.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/vc-got-stage.el b/vc-got-stage.el
index 5146237..6e85b11 100644
--- a/vc-got-stage.el
+++ b/vc-got-stage.el
@@ -80,6 +80,14 @@
                             :filter #'vc-got-stage--filter
                             :sentinel #'vc-got-stage--sentinel))))))
 
+(defun vc-got-stage--kill-separators ()
+  "Kill the separator lines in interactive got stage."
+  (save-excursion
+    (forward-line -2)
+    (kill-line)
+    (goto-char (point-min))
+    (kill-line)))
+
 (defun vc-got-stage--filter (proc string)
   "Filter for got stage process.
 PROC is the process, STRING part of its output."
@@ -97,7 +105,8 @@ PROC is the process, STRING part of its output."
                                          (zero-or-more anychar)
                                          "?")))
               (let ((msg (match-string 1)))
-                (kill-line)
+                (kill-line)             ; kill the question
+                (vc-got-stage--kill-separators)
                 (process-send-string buf (if (y-or-n-p msg) "y\n" "n\n"))
                 (erase-buffer)))))))))