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

* vc-p4.el (vc-p4-dir-state): Remove unused function.

Browse source 
[git-p4: depot-paths = "//guest/Ben_Key/vc-p4/,//guest/jonathan_kamens/vc-p4/,//guest/magnus_henoch/vc-p4/": change = 7237]
This commit is contained in:
Magnus Henoch 2009-05-27 09:54:56 -08:00
parent eacbba72bc
commit d1bbfc11ce
1 changed files with 0 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
vc-p4.el
View file

@ -285,33 +285,6 @@ compare non-open files to the depot version."
(vc-file-setprop file 'vc-workfile-version haveRev) (vc-file-setprop file 'vc-workfile-version haveRev)
state))) state)))
; Here's something that would work faster, but I'm not going to
; actually try to use this unless I find that it's really too slow to
; just do all the work all the time.
;(defun vc-p4-state-heuristic (file)
; "Estimates the current version control state of FILE in Perforce."
; (if (and (file-exists-p file)
; (file-writable-p file))
; 'edited
; 'up-to-date))
(defun vc-p4-dir-state (dir)
"Determines the current version control state of the files in DIR in
Perforce and sets the appropriate VC properties."
(let ((lists (p4-lowlevel-fstat (format "%s/*" dir) nil t))
this-list this-file this-action)
(if (stringp (caar lists))
(setq lists (list lists)))
(while lists
(setq this-list (car lists)
lists (cdr lists)
this-file (cdr (assoc "clientFile" this-list))
this-action (cdr (or (assoc "action" this-list)
(assoc "headAction" this-list))))
(if (and this-file
(not (string= this-action "delete")))
(vc-p4-state this-file this-list)))))
(defun vc-p4-dir-status (dir update-function) (defun vc-p4-dir-status (dir update-function)
"Find information for `vc-dir'." "Find information for `vc-dir'."
;; XXX: this should be asynchronous. ;; XXX: this should be asynchronous.