vc-src-working-revision: Call string-trim-right on command output

* lisp/vc/vc-src.el (vc-src-working-revision): Call string-trim-right on
command output (bug#73763).

(cherry picked from commit f36d059cded88b0b6dafcc4a21a478ef0aaacf81)

diff --git a/lisp/vc/vc-src.el b/lisp/vc/vc-src.el
index 27f58cb3369144e47837daa82fbf28863ae5ee1b..ff19b0f769650cc5d7c1b79bf139b5f0bd0979fc 100644 (file)
--- a/lisp/vc/vc-src.el
+++ b/lisp/vc/vc-src.el
@@ -222,8 +222,9 @@ This function differs from `vc-do-command' in that it invokes `vc-src-program'."
 (defun vc-src-working-revision (file)
   "SRC-specific version of `vc-working-revision'."
   (let ((result (ignore-errors
-                 (with-output-to-string
-                   (vc-src-command standard-output file "list" "-f{1}" "@")))))
+                  (string-trim-right
+                   (with-output-to-string
+                     (vc-src-command standard-output file "list" "-f{1}" "@"))))))
     (if (zerop (length result)) "0" result)))
 
 ;;;