vc--apply-to-other-working-tree: Handle 'diff-default-read-only'.

* lisp/vc/vc.el (vc--apply-to-other-working-tree): Bind
inhibit-read-only to non-nil to handle the case when
diff-default-read-only is non-nil (bug#80128).

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index af129f3da5f..a976c498c13 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -5471,7 +5471,8 @@ MOVE non-nil means to move instead of copy."
     (with-temp-buffer
       (cond* (patch-string
               (diff-mode)
-              (insert patch-string))
+              (let ((inhibit-read-only t)) ; `diff-default-read-only'.
+                (insert patch-string)))
              ;; Some backends don't tolerate unregistered files
              ;; appearing in the fileset for a diff operation.
              ((bind* (diff-fileset