Author: mhenoch Date: Wed Mar 5 05:39:39 2008 New Revision: 176 Modified: cl-darcs/trunk/cmdline.lisp Log: Change default repository when pulling Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp (original) +++ cl-darcs/trunk/cmdline.lisp Wed Mar 5 05:39:39 2008 @@ -318,4 +318,8 @@ (dolist (theirrepo from-repositories) (pull ourrepo theirrepo :select-patches (if all-patches :all :ask))) + ;; Change the default repository. + (when (first from-repositories) + (set-default-repo ourrepo (upath-to-string (first from-repositories)))) + 0))