From: Peter Oliver <git@mavit.org.uk>
Date: Thu, 17 Oct 2019 02:43:38 +0000 (+0200)
Subject: Allow vc-sccs-diff to work with TRAMP
X-Git-Tag: emacs-27.0.90~1025
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f75f90a5ddb5e282594483dd7b5dae36f94794c3;p=emacs.git

Allow vc-sccs-diff to work with TRAMP

* lisp/vc/vc-sccs.el (vc-sccs-diff): If the diff command is to be
run remotely, then the temporary files it's acting on must be
remote too (bug#37777).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el
index 805e738f7a9..b59d8178fe8 100644
--- a/lisp/vc/vc-sccs.el
+++ b/lisp/vc/vc-sccs.el
@@ -347,7 +347,7 @@ Remaining arguments are ignored."
       (message "Running %s in foreground..." fake-command))
     (if oldproc (delete-process oldproc))
     (dolist (file files)
-      (let ((oldfile (make-temp-file "vc-sccs"))
+      (let ((oldfile (make-nearby-temp-file "vc-sccs"))
 	    newfile)
 	(unwind-protect
 	    (progn
@@ -364,7 +364,7 @@ Remaining arguments are ignored."
 		     (this-status
 		      (apply 'process-file "diff" nil t nil
 			     (append (vc-switches 'SCCS 'diff)
-				     (list oldfile
+				     (list (file-local-name oldfile)
 					   (or newfile
 					       (file-relative-name file)))))))
 		(or (integerp this-status) (setq status 'error))