ryuslash/vc-p4
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use the right client for ‘vc-dir’

Browse source
This commit is contained in:
Tom Willemse 2021-03-10 18:10:16 -08:00
parent 461b1357f9
commit 0f054faa4d
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
vc-p4.el
View file

@ -189,10 +189,12 @@ compare non-open files to the depot version."
_FILES is ignored. The UPDATE-FUNCTION is used to process the _FILES is ignored. The UPDATE-FUNCTION is used to process the
results of this function." results of this function."
;; XXX: this should be asynchronous. ;; XXX: this should be asynchronous.
(let ((lists (p4-lowlevel-fstat (let* ((vc-p4-client (with-current-buffer (find-file-noselect dir)
(format "%s/..." (directory-file-name (expand-file-name dir))) vc-p4-client))
:noerror t (lists (p4-lowlevel-fstat
:client vc-p4-client))) (format "%s/..." (directory-file-name (expand-file-name dir)))
:noerror t
:client vc-p4-client)))
(when (stringp (caar lists)) (when (stringp (caar lists))
(setq lists (list lists))) (setq lists (list lists)))
(dolist (this-list lists) (dolist (this-list lists)