From d1bbfc11ce24d12f5ca4e19d7b81c17b9d798bc7 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Wed, 27 May 2009 09:54:56 -0800 Subject: [PATCH] * vc-p4.el (vc-p4-dir-state): Remove unused function. [git-p4: depot-paths = "//guest/Ben_Key/vc-p4/,//guest/jonathan_kamens/vc-p4/,//guest/magnus_henoch/vc-p4/": change = 7237] --- vc-p4.el | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/vc-p4.el b/vc-p4.el index a94ed44..fbe72ca 100644 --- a/vc-p4.el +++ b/vc-p4.el @@ -285,33 +285,6 @@ compare non-open files to the depot version." (vc-file-setprop file 'vc-workfile-version haveRev) 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) "Find information for `vc-dir'." ;; XXX: this should be asynchronous.