2333 |
(format "Updating %s... " (abbreviate-file-name dir)) |
(format "Updating %s... " (abbreviate-file-name dir)) |
2334 |
(format "Retrieving snapshot into %s... " |
(format "Retrieving snapshot into %s... " |
2335 |
(abbreviate-file-name dir))))) |
(abbreviate-file-name dir))))) |
2336 |
(message msg) |
(message "%s" msg) |
2337 |
(vc-call-backend (vc-responsible-backend dir) |
(vc-call-backend (vc-responsible-backend dir) |
2338 |
'retrieve-snapshot dir name update) |
'retrieve-snapshot dir name update) |
2339 |
(message (concat msg "done")))) |
(message "%s" (concat msg "done")))) |
2340 |
|
|
2341 |
(defun vc-default-retrieve-snapshot (backend dir name update) |
(defun vc-default-retrieve-snapshot (backend dir name update) |
2342 |
(if (string= name "") |
(if (string= name "") |