diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc/vc-sccs.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |