Mercurial > emacs

comparison lisp/vc-svn.el @ 98675:2cae4bd13e67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-hooks.el (vc-stay-local): Add a new choice and default to it. * vc-cvs.el (vc-cvs-dir-stay-local): Remove. (vc-cvs-stay-local): Add a new choice and default to it. (vc-cvs-dir-status): Use the new vc-stay-local choice. * vc-svn.el (vc-svn-dir-status): Use the new vc-stay-local choice.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 13 Oct 2008 01:16:49 +0000
parents 4031fe2e11ee
children b0dce7f34dda
comparison
equal deleted inserted replaced
98674:bde81f3667cd 98675:2cae4bd13e67
178 (defun vc-svn-dir-status (dir callback) 178 (defun vc-svn-dir-status (dir callback)
179 "Run 'svn status' for DIR and update BUFFER via CALLBACK. 179 "Run 'svn status' for DIR and update BUFFER via CALLBACK.
180 CALLBACK is called as (CALLBACK RESULT BUFFER), where 180 CALLBACK is called as (CALLBACK RESULT BUFFER), where
181 RESULT is a list of conses (FILE . STATE) for directory DIR." 181 RESULT is a list of conses (FILE . STATE) for directory DIR."
182 ;; FIXME should this rather be all the files in dir? 182 ;; FIXME should this rather be all the files in dir?
183 (let ((remote (not (vc-stay-local-p dir)))) 183 (let* ((local (vc-stay-local-p dir))
184 (remote (and local (not (eq local 'only-file)))))
184 (vc-svn-command (current-buffer) 'async nil "status" 185 (vc-svn-command (current-buffer) 'async nil "status"
185 (if remote "-u")) 186 (if remote "-u"))
186 (vc-exec-after 187 (vc-exec-after
187 `(vc-svn-after-dir-status (quote ,callback) ,remote)))) 188 `(vc-svn-after-dir-status (quote ,callback) ,remote))))
188 189