Index: vc-svk.el =================================================================== --- vc-svk.el (revision 2557) +++ vc-svk.el (working copy) @@ -768,17 +768,20 @@ (let ((config "~/.svk/config") mtime) (when (file-readable-p config) - (setq mtime (nth 5 (file-attributes "~/.svk/config"))) + (setq mtime (nth 5 (file-attributes config))) (unless (and vc-svk-co-paths ; has not it been loaded? - (vc-svk-time-less-p mtime ; is it unmodified since? - (car vc-svk-co-paths))) + (not ; is it unmodified since? + (vc-svk-time-less-p (car vc-svk-co-paths) mtime))) ;; (re)load - (setq vc-svk-co-paths (list mtime)) (with-temp-buffer (vc-svk-command t 0 nil "checkout" "--list") + ;; `svk checkout --list' modifies ~/.svk/config somehow, so + ;; you have to stat it again. + (setq mtime (nth 5 (file-attributes config))) + (setq vc-svk-co-paths (list mtime)) (goto-char (point-min)) (when (search-forward "==========\n" nil t) - (while (re-search-forward "^ +\\(.+\\) *\t\\(.+\\)$" nil t) + (while (re-search-forward "^ +\\(.+?\\) *\t\\(.+\\)$" nil t) (add-to-list 'vc-svk-co-paths (list (match-string-no-properties 2) (match-string-no-properties 1))))))