From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 4 Jun 2025 08:36:23 +0000 (+0000)
Subject: ; vc-bzr-incoming-revision: Rewrite to match buffer text directly.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ba7c77fe1382d8664237961cbe91ccb2906fe8e;p=emacs.git

; vc-bzr-incoming-revision: Rewrite to match buffer text directly.

(cherry picked from commit e3472e8ec5852fb2b3f29c174a085b8f5b8f6f42)
---

diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el
index 0fcc88836a1..f4a1978a40b 100644
--- a/lisp/vc/vc-bzr.el
+++ b/lisp/vc/vc-bzr.el
@@ -822,15 +822,15 @@ If LIMIT is non-nil, show no more than this many entries."
                                     remote-location))))
 
 (defun vc-bzr-incoming-revision (remote-location)
-  (let* ((output
-          (with-output-to-string
-            (vc-bzr-command "missing" standard-output 1 nil
-                            "--log-format=long" "--show-ids"
-                            "--theirs-only" "-r-1.."
-                            (and (not (string-empty-p remote-location))
-		                 remote-location)))))
-    (and (string-match "^revision-id: \\(.+\\)$" output)
-         (concat "revid:" (match-string 1 output)))))
+  (with-temp-buffer
+    (vc-bzr-command "missing" t 1 nil
+                    "--log-format=long" "--show-ids"
+                    "--theirs-only" "-r-1.."
+                    (and (not (string-empty-p remote-location))
+		         remote-location))
+    (goto-char (point-min))
+    (and (re-search-forward "^revision-id: " nil t)
+         (buffer-substring (point) (pos-eol)))))
 
 (defun vc-bzr-log-outgoing (buffer remote-location)
   (apply #'vc-bzr-command "missing" buffer 'async nil